File Perl

  1. Home
  2. Perl
  3. File
  4. 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 ": $_";
}