Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Using eof and together
#!/usr/local/bin/perl 
while ($line = <>) { 
   print ($line); 
   if (eof) { 
      print ("-- end of current file --\n"); 
   } 
} 
while ($line = <>) { 
    print ($line); 
    if (eof()) { 
        print ("-- end of output --\n"); 
    } 
}