print {$fh}; --出错了，learning perl 错了？！！

chenxianzai

回复 29# happy_dongwei


   因为自己现在在看perl，看了书想练下手，我同意你的说法，代码应该尽量写的“自说明”些，之前的脚本是大路的写法，主要是想换个思路改写下会怎样呢？于是就有这个练习脚本，希望把perl关于文件的语法自己练一篇的，没想到就出错了，当初挺是不解，按照perl的思想，因为在这个循环内默认是$_了，起头的想法是：既然你一直没出现，就让你一直隐藏着好了，所以print语句就没写$_，文件句柄总要写了吧？这时我忽然想起书本好像有这个写法，所以就写了，谁知报错。
因为在perl里有这样的写法：

while （<$fh> {
  
    print;
}

print语句默认就是打印$_的，我认为，没写参数，默认就是打印$_（同 print STDOUT ;），按照perl的这种思路，应该是这样的 ，谁知它不是

happy_dongwei

回复 31# chenxianzai


    我试过, 不加句柄是可以不写$_的. 但加了句柄, 而且用变量形式的句柄, 就得写$_. 裸字就没有问题, 估计这是这个版本的perl的一个bug吧. 希望可以在后面修正.

chenxianzai

回复 32# happy_dongwei


    严重同意！！！！

afukada

1. open r_fh,'<','D:/perl/text.txt' or die "$!";
   
2. open w_fh,'>','D:/perl/write.txt' or die "$!";
   
3. 
   
4. while (<r_fh>) {
   
5.     print w_fh;
   
6. }
   
7. 
   
8. close r_fh;
   
9. close w_fh;

复制代码

這樣是OK的
   

happy_dongwei

这个问题, 大骆驼有些说明, 小骆驼的确是说错了:

If you specify a FILEHANDLE, you may omit the LIST only if the FILEHANDLE is a
regular bareword filehandle, not a block or indirect filehandle.

page 918