Question

perl中，文件句柄的输入输出问题

程序如下：
open LOG, "< pinglist.txt";
open LOG1, ">>perl_logfile";
while ($m = <LOG>) {
print LOG1 "$m";
close (LOG);
close (LOG1);
}
文本内容：
root@luis-VirtualBox:~# cat pinglist1.txt
hehe
haha
zzz
done
当我运行完程序，我的perl_logfile文件为什么是空的？应该有pinglist1.txt文本内容写入啊？
root@luis-VirtualBox:~# cat perl_logfile
root@luis-VirtualBox:~#
我哪里写错了？怎么实现？

Answer 1

open LOG, "< pinglist1.txt";
open LOG1, ">>perl_logfile";
while ( $m=<LOG>) {
print LOG1 $m;
}
close LOG;
close LOG1;

追问

能帮我详细解释下下面的句子么？不太明白（while循环懂，就是不太明白$m,LOG.LOG1和print之间的关系）？
while ( $m=) {
print LOG1 $m;
}

追答

while ( $m=) { #-------按行取出pinglist1.txt，赋给$m;
print LOG1 $m; #-----------将$m输出到LOG1中，也就是perl_logfile文件中
}