Save packed data to a file : file write « File « Perl






  1. Perl
  2. File
  3. file write

Save packed data to a file

    



$time = time;

$s = pack ("a8a8L", Mike, Flash, $time);

open FILEHANDLE, ">file.dat" or die "Can not open file.dat";
print FILEHANDLE $s;
close FILEHANDLE;

open FILEHANDLE2, "<file.dat" or die "Can not open file.dat";
$s2 = <FILEHANDLE2>;
close FILEHANDLE2;

($first, $last, $time) = unpack ("a8a8L", $s2);

print "First name: $first\n";
print "Last name: $last\n";
print "Time: ", scalar localtime($time);








Related examples in the same category

1.Write array to a file
2.Write data to file
3.Write ten lines of text to a pipe
4.Write unpack data to a file
5.Writes to the standard error file.
6.Save formatted data to a file
7.Save hash value to a file
8.Save new line character to a file
9.Print data to a file
10.Copying files
11.File read and write
12.Merges two files.
13.Shuffle a file?
14.Sort a file
15.Creating a file with the numbers 0-9: +>