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(<> )和直接读取$_有什么区别？

wertyu

原帖由 anlrj 于 2009-1-10 16:53 发表
ex1-1.pl原文如下：
Print "Hello World\n";


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

print "Hello World \n";
我写了以下的代码：

open  ...

if ($_=~/.*/s)     $_哪来的值？

MMMIX

原帖由 anlrj 于 2009-1-10 16:53 发表

open A,"e:/perl/Ex1-1.pl" or die "$!";
open B,">e:/perl/Ex1-1.pl.bak" or die "$!";
    if ($_=~/.*/s) {

在这，你觉得 $_ 里面是啥？为什么这么觉着？或者说从什么地方看到的？

MMMIX

原帖由 wertyu 于 2009-1-10 16:57 发表


if ($_=~/.*/s)     $_哪来的值？

而且 /.*/s 这个 regexp 也是有问题的，它会匹配任何字符串，包括空串。

wertyu

原帖由 MMMIX 于 2009-1-10 16:59 发表

而且 /.*/s 这个 regexp 也是有问题的，它会匹配任何字符串，包括空串。

确实
LZ看书的时候要细心一点，书读百遍，其意自现

churchmice

说到底还是基本概念不清楚，你自己回忆下perl里面是怎么读取一个文件的吧
最基本的
你把你读入的内容都echo一遍
$_这个东西在不同的地方有不同的意义，如果一时驾驭不好就别去用，除非你十分清楚在这个地方$_代表什么，否则别跟风使用
翻翻小骆驼，这根本不是一个问题

ynchnluiti

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

复制代码

$_ 是个特殊变量，是语句while,foreach等，函数grep,map等，模式匹配操作符m//,s///，转换操作符y/// 和 tr///使用的默认变量。具体
可以参见perldoc perlvar，中文可看本版精华区的翻译。

while (<>)  这里有<>行读入操作符，<A>能够从A中读入内容，默认赋值给$_。

anlrj

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