programming-examples/perl/File/Output file line by line.pl
2019-11-15 12:59:38 +01:00

12 lines
222 B
Perl

!#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>";
}