File Perl

  1. Home
  2. Perl
  3. File
  4. Numbering Lines
#!/usr/bin/perl
use warnings;
use strict;
open FILE, "nlexample.txt" or die $!;
my $lineno = 1;
while () {
    print $lineno++;
    print ": $_";
}