while<>和直接读取$_有什么区别？

anlrj

ex1-1.pl原文如下：
Print "Hello World\n";


现在想在文件的开头加上 # This is my first code.
使它成为如下的格式：

# This is a perl code. print "Hello World \n";

我写了以下的代码：

open A,"e:/perl/Ex1-1.pl" or die "$!"; open B,">e:/perl/Ex1-1.pl.bak" or die "$!";     if ($_=~/.*/s) {      $_="# This is a perl code.\n".$_;      print B; }     close A;     close B;

结果令人沮丧，出来的ex1-1.pl.bak是这样的

# This is a perl code.

如果使用while(<> )的话，就正确了。代码如下：

open A,"e:/perl/Ex1-1.pl" or die "$!"; open B,">e:/perl/Ex1-1.pl.bak" or die "$!"; while (<A>) {     if ($_=~/.*/ms) {      $_="# This is a perl code.\n".$_;      print B;      $s=$s+1; # 判断是不是还在第一行     if ($s=1) {         last;     } }     }     close A;     close B;

求助！

在读取一行的文件的时候，while(<> )和直接读取$_有什么区别？

anlrj

恩，我已经知道了，谢谢了！