perl 替换文件中的一行

给你个例子
m.txt的内容
5
4
3
2
1
现在把里面的2换成two

Perl code

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

use  strict; my  @old  = (); my  @new  = ();   open  F,  '+<m.txt'  or  die  "$!\n" ; @old  = <F>;     for  my  $line  ( @old ) {      chomp  $line ;            if  ( $line  ==  '2' ) {               push  @new ,  'two' ;        }  else  {          push  @new ,  $line ;         } }   seek  F, 0, 0;   print   F  join  "\n" ,  @new ; close  F;

修改后的m.txt
5
4
3
two
1
方法有点麻烦。