Mega Code Archive

 

Categories / Perl / File

 

Read till the end of the file

#!/usr/bin/perl while(<>){    print "$.\t$_";    if (eof){       print "-" x 30, "\n";       close(ARGV);    } }