File Perl

  1. Home
  2. Perl
  3. File
  4. Defined lines in a file
!#c:\perl\bin
print "Content-type: text/html\n\n";
open(MYFILE, "c:\\testfile.dat")|| die print "Error encountered opening file ... $!";
while(defined($dataline=))
  {
     print "$dataline 
";
  }
close(MYFILE);