Mega Code Archive

 

Categories / Perl / File

 

Copy file by reading one file and save to another file

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;