求助，perl读取文件的问题

telecomshy

读取一个文件：

1. #!/usr/bin/perl -w
   
2. open(FH,"1111.txt");
   
3. while($line=<FH>){
   
4.         print $line;
   
5. }

复制代码

这样写，或者直接:

1. #!/usr/bin/perl -w
   
2. open(FH,"1111.txt");
   
3. while(<FH>){
   
4.         print <FH>;
   
5. }

复制代码

都没问题，但是稍微改动一下：

1. #!/usr/bin/perl -w
   
2. open(FH,"1111.txt");
   
3. while(<FH>){
   
4.                $line=<FH>
   
5.         print $line;
   
6. }

复制代码

读取出来的文件就会有丢失的情况。这是什么原因呢？这2种写法有什么区别吗？
后面一种写法也时准时不准的，跟1111.txt源文件好像还有关系。

======================================================
多日以后再来总结：
第一种不用多说，第二种print，就像版主所说，直接print FH，则是进行了一次foreach循环，将剩下的全部输出了。第三种则是将一行赋值给$line，因为此时$/默认为换行符，此时如果加一行代码.

1. #!/usr/bin/perl -w
   
2. open(FH,"1111.txt");
   
3. while(<FH>){
   
4.                local $/;
   
5.                $line=<FH>
   
6.         print $line;
   
7. }

复制代码

则会和第二种一样，剩下的全部输出了。

ziyunfei

第二第三都不对。

珞水的大叔

while(<FH>)会读一行文件，存放在$_里
print <FH>又会读一行文件，直接显示在屏幕上
$line=<FH>也会读一行文件，存放在$line里
这样说明白么，呵呵

上次说错了，print <FH>应该不是读一行，而是读所有……
不好意思啊
修改于2011年8月1日

telecomshy

刚测试了一下。假设1111.txt内容为
1
2
3
4
5
6
用第一种方法，全部正确读取。
第三种方法，读取为
2
4
6
可以理解。
用第二种方法，读取为
2
3
4
5
6
果然如此，了解了。第三种真是有意思。我理解是while(<FH>)以后，等print的时候，已经是第二行，而print以后却不会换行，下次while从第二行读取，所以总是第一行没有。不知道是否正确。

我的天呀，合着我弄的几个小东西起码少读取了一半的内容。

liuqiao007

把<FH>存数组里

masylichu

区别很大啊，$name=<>和@name=<> ，前者是读一行，后者是读全部。

超级细菌

这确实有点意思，我也经常遇到，但是我还是有点不明白，既然没有用chomp的话，为什么会就忽略了呢？楼主，你明白了的话，能再详细说一下各自的运行过程吗？谢了

telecomshy

while()会读一行文件，存放在$_里
print 又会读一行文件，直接显示在屏幕上
$line=也会读一行文件，存放在 ...
珞水的大叔 发表于 2011-03-21 17:11

时隔多日再来看，发现开始理解的还是有点偏差。print <FH>不是读一行了，而是把剩下的全部都输出了。
一行print <FH>，就相当于while(<FH>){print ;}

telecomshy

这确实有点意思，我也经常遇到，但是我还是有点不明白，既然没有用chomp的话，为什么会就忽略了呢？楼主，你 ...
超级细菌 发表于 2011-03-25 09:48

第一种方法就是一行一行读取，这个好理解；
第二种方法while的时候拿出一行赋给$_，print <FH>把剩下的全部一次性输出到屏幕，所以输出的结果没有第二行；
第三种方法while的时候拿出一行，$line=<FH>又拿出一行，所以输出的结果总是$line定义的那一行；

错误还是由于对文件句柄理解不深刻啊。

flw

时隔多日再来看，发现开始理解的还是有点偏差。print 不是读一行了，而是把剩下的全部都输出了。
一行 ...
telecomshy 发表于 2011-05-28 10:39

理解的还是不对。
print <FH> 不是等于 while(<FH>){ print }，而是等于 foreach (<FH>){ print }，也就是 @lines = <FH>; print @lines;