Output file line by line : File Output « File « Perl






  1. Perl
  2. File
  3. File Output

Output file line by line

    

!#c:\perl\bin

print "Content-type: text/html\n\n";

open(MYFILE, "c:\\testfile.dat")|| die print "Error encountered opening file ... $!";

while(defined($dataline=<MYFILE>)){
     print "$dataline <br>";
}








Related examples in the same category

1.Print message in case of file open failure
2.Print out file line number
3.Print text to file
4.Prints the size of a file in bytes.
5.Numbering Lines in Multiple Files
6.Output file