Numbering Lines in Multiple Files : File Output « File « Perl

1. Perl
2. File
3. File Output

Numbering Lines in Multiple Files

    

#!/usr/bin/perl
use warnings;
use strict;
my $lineno;
my $current = "";
while (<>) {
    if ($current ne $ARGV) {
        $current = $ARGV;
        print "\n\t\tFile: $ARGV\n\n";
        $lineno=1;
    }
    print $lineno++;
    print ": $_";
}

   
    
    
    
  

Related examples in the same category