Using format_write function to save formatted data to a file : IO « File « Perl






Using format_write function to save formatted data to a file

    

use IO::File;

format TEXTFORMAT =
@<<<<<<<<<<<@>>>>>>>>>>>>>>>
$text1      $text2

.

$text1 = "Hello";
$text2 = "there!";

$filehandle = new IO::File;

$filehandle->open(">yourFile.txt") or die "Cannot open format.txt";

$filehandle->format_write (::TEXTFORMAT);
$filehandle->close;

   
    
    
    
  








Related examples in the same category

1.Call tell function from file handle
2.Close a file handle
3.Count the lines of a file
4.Using IO::File to write string to a file
5.Using IO:File open to open a file for read
6.Using write function to write string to a file
7.Reference eof function from file handle to check if it is the end of file