File Perl

  1. Home
  2. Perl
  3. File
  4. Write unpack data to a 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;