Select Code to Download

#!perl

...

close $out_fh;
close $in_fh;

$ cat -vet utf16_LE_prob.unix_dat utf16_LE_prob.dos_dat
Line 1$
...
Line 1^M$
Line 2^M$
^M$

$ cat -vet utf16_LE_prob.unix_out
Line 1$
Line 2$
$

$ cat -vet utf16_LE_prob.dos_out
Line 1^M$
Line 2^M$
^M$

while (my $line = <$in_fh>) {
    chomp $line,
    print $out_fh $line, $/;
}

$ cat -vet utf16_LE_prob.unix_out utf16_LE_prob.dos_out
Line 1$
...
Line 1^M$
Line 2^M$
^M$

$ cat -vet utf16_LE_prob.unix_out utf16_LE_prob.dos_out
Line 1$
...
Line 1^M$
Line 2^M$
^M$

$ cat -vet utf16_LE_prob.unix_out utf16_LE_prob.dos_out
Line 1$
...
Line 1^M$
Line 2^M$
^M$

$ cat -vet utf16_LE_prob.unix_out utf16_LE_prob.dos_out
Line 1$
...
Line 1^M$
Line 2^M$
^M$