programming-examples/perl/File/Copy file by reading one file and save to another file.pl
2019-11-15 12:59:38 +01:00

13 lines
262 B
Perl

open INFILEHANDLE, "<data.uue";
open OUTFILEHANDLE, ">data.dat";
binmode OUTFILEHANDLE; #Necessary in MS DOS!
while (defined($line = <INFILEHANDLE>)) {
print OUTFILEHANDLE unpack('u*', $line);
}
close INFILEHANDLE;
close OUTFILEHANDLE;