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

chenxianzai

OS:    window xp
Perl:   stawberry perl v5.14

今天写了一个这样的测试程序出错了，求大神指点。。。。。

#!/usr/bin/perl


open my $r_fh,'<','D:/perl/text.txt' or die "$!";
open my $w_fh,'>','D:/perl/write.txt' or die "$!";

while (<$r_fh>) {
    print {$w_fh};
}

close $r_fh;
close $w_fh;


错误：

我已经在$w_fh上加花括号了，还是报错。

pitonas

print $w_fh $_;

stanley_tam

To use FILEHANDLE alone to print the content of $_ to it, you must use a real filehandle like FH , not an indirect one like $fh
所以你那个用法应该是filehandle必须为r_fh而非$r_fh

chenxianzai

回复 3# stanley_tam


    文档我也看了，我也知道用的是FH，但是《perl 入门 中文版 第六版》（小骆驼书）却是这样写的：


这个哥就郁闷了，这本书还是挺权威的，竟然和perl文档不一致，有书的同学可以翻开第五章114页看一下。

chenxianzai

回复 2# pitonas

哥其实就是不想写后面那个 $_ ,想简洁点。

   

pitonas

回复 5# chenxianzai


    这个哥竟然挺权威的

cu_little_bird

回复 4# chenxianzai
那本书都出到第6版了哇， 我以前看的好像是第四版

   

chenxianzai

求大神，给个方法啊，哥不想用裸字啊~~~~~~~~~~~~~

chenxianzai

回复 7# cu_little_bird


    是啊，第六版 涵盖 5.14的，也是哥第一本学习Perl的书，这本是真心写的不错。

yybmsrs

估计是个错误