File Perl

  1. Home
  2. Perl
  3. File
  4. Print out file line number
#!/usr/bin/perl -w
use strict;
open(FILE, '<', 'yourFile.txt') or die $!;
my $lineno = 1;
while () {
    print $lineno++;
    print ": $_";
}
close FH;