Question

perl ，关于文件句柄的疑问！

root@luis-VirtualBox:~# tail -n 3 perl.pl
#!/usr/bin/perl
open LOG, "<pinglist1.txt";
open LOG, ">>perl_logfile";
exit
root@luis-VirtualBox:~# cat pinglist1.txt
1987
2008
3000
2000
2012
1200
1300
脚本跑完后没报错，但是perl_logfile文件依然是空的，请问这是为什么？

Answer 1

兄弟，你 只打开了文件，而且，读入与追加描述符用的是一个。
看你这意思，应该是用perl 复制一个文件。按照下面的写就行了。
open(LOG,"<pinglist1.txt");
open(LOG1,">>perl_logfile");
print LOG1 LOG; #这一句的意思就是把你打开的文件描述符LOG的内容，写到LOG1里。
close(LOG)；
close(LOG1)；

Answer 2

只是打开文件怎么会有东西写进去呢？
open LOG, "<pinglist1.txt";
open LOG1, ">>perl_logfile";
while(<LOG>){print LOG1 $_;}
close(LOG);close(LOG1);

追问

谢谢，
能详细解释一下这句么？
while(){print LOG1 $_;}
这句的意思是把LOG的内容存到LOG1里么？$_变量在这里起什么作用？

追答

对的
$_= $m=;print LOG1 $m作用一样
不加默认就是到$_

追问

$m是系统的哪个变量啊？起什么作用呢？

追答

$m是自己定义的一个变量啊，我的意思是说
$m=;print LOG1 $m;
等价于$_=;print LOG1 $_;
等价于;print LOG1 $_;
只不过$_是内置的一个特殊变量而已

追问

谢谢，我重新改了一遍脚本，现在是：
open LOG, ">perl_logfile";
$m = ;
print "LOG1 $m";
close (LOG);
close (LOG1);
然后我查看输出，还是没有：
root@luis-VirtualBox:~# cat perl_logfile
root@luis-VirtualBox:~#
我的疑问是: 一定要用while（while()）语句，才可以写入数据么？我这个脚本是不是写错了？

追答

print LOG1 "$m";记得放在外面才是写到文件否则写到stdout
可以不用while要用$m=eval{local $/=undef;};