File Perl

  1. Home
  2. Perl
  3. File
  4. Read till the end of the file
#!/usr/bin/perl
while(<>){
   print "$.\t$_";
   if (eof){
      print "-" x 30, "\n";
      close(ARGV);
   }
}