defined lines in a file : file handle « File « Perl






  1. Perl
  2. File
  3. file handle

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=<MYFILE>))
  {
     print "$dataline <br>";
  }

close(MYFILE);








Related examples in the same category

1.Using file handle variable
2.Select a file handle
3.Pass file handle reference in a the form of '*FILEHANDLE{IO}'
4.Pass file handle reference to a subroutine
5.Pass file handle to stat function
6.Passing Filehandles by Reference
7.Passing file handles to functions
8.Filehandle References
9.Split a file handle containing array
10.undef file handle
11.Using a scalar variable to store a file variable name.
12.Using while loop to read content
13.Redirects the standard output and standard error files.
14.To write to a file:
15.Passing file name to functions