File Perl

  1. Home
  2. Perl
  3. File
  4. The eof function can be used to test if end of file has been reached
#Format:
#eof(FILEHANDLE)
#eof()
#eof
open ( DB, "data.txt") || die "Can't open emp.names: $!";
while(){
    print if (/Norma/ .. eof);      # .. is the range operator
}