Using eof and <> together. : Special Variables « Language Basics « Perl

1. Perl
2. Language Basics
3. Special Variables

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"); 
    } 
} 

   
    
    
  

Related examples in the same category