File Perl

  1. Home
  2. Perl
  3. File
  4. Copy file by reading one file and save to another file
open INFILEHANDLE, "open OUTFILEHANDLE, ">data.dat";
binmode OUTFILEHANDLE;    #Necessary in MS DOS!
while (defined($line = )) {
    print OUTFILEHANDLE unpack('u*', $line);
}
close INFILEHANDLE;
close OUTFILEHANDLE;