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

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » File » 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: +>

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.