如何用perl在文件里的每一行开头加一个数字并且数字是递增插入

open IN, "d:/a.txt"

@a = <IN>

close IN

open OUT,"> d:/a.txt"

my $i = 0

while(<@a>){

print OUT "$i $_"

$i++

}

close OUT

#!/usr/bin/perl

$file = shift

$matched = 0

$newFile = "balabalabala_tmp"

die "usage: ./test.pl filename\n" if !defined $file

open FD, "<$file" or die "can't open $file:$!"

open TMP, ">$newFile"

select TMP

while(<FD>) {

      $line = $_

      if(!$matched &&/nameserver/) {

              print "nameserver 8\n"

              $matched = 1

      }

      print $line

}

close FD

close TMP

unlink $file

rename $newFile, $file

---