foreach (@flist){ print "DIRECTORY: $_\n" and next if (-d $_); print " BINARY: $_\n" and next if (-B $_); print " UNKNOWN: $_\n" and next if (! -f $_); print " ASCII: $_ - running dos2unix...\n"; `dos2unix $_ > ,x 2>/dev/null`; die "dos2unix on '$_' failed" if ($?); rename(",x", "$_") || die "[rename] ',x' => '$_' ($?)";}
iwperl -i.bak -n -e 's/\r//; print $_;' filename
#!/bin/kshTEMP_TOKEN=dos2unix.tempfor FILE in $* do NEW_FILE="$FILE.$TEMP_TOKEN" ; dos2unix "$FILE" > "$NEW_FILE" ; if diff "$FILE" "$NEW_FILE" > /dev/null then rm "$NEW_FILE" else mv "$NEW_FILE" "$FILE" fidone