Perl一次读取文件的方法

225025

　　http://hi.baidu.com/wenjiejia/blog/item/ba1365226ec401a74623e8f3.html
　　$/ 改变默认分隔符
　　一般读取perl文件要一行一行的读；
　　怎么才能一次读取所有的内容呢？
　　众所周知的，就是用数组可以一次性全部读取出来：
　　open FH,"test.txt" or die $!;
　　@array = ;
　　close FH;
　　print @array;
　　另外，我们可以通过重新定义分隔符$/来达到目的：
　　open FH,"test.txt" or die $!;
　　local $/=undef;
　　$scalar = ;
　　close FH;
　　print $scalar;
　　程 序中把分隔符$/设置为未定义，分隔符$/默认情况下是等于回车的，在win32中就是\n。
　　现在把它重新定义后，就不会把文件按照一行读取了；上面的程序虽然实现了使用标量读取，但是，如果这样的代码放在大程序中，还是有问题，就是分隔符$/， 如果后面会用到的话，还需要通过$/="\n"来恢复。
　　为了节省一这步，更为了避免因为马虎而忘记恢复分隔符$/，可以通过local来局部化：
　　open FH,"test.txt" or die $!;
　　{
　　local $/=undef;
　　$scalar = ;
　　close FH;
　　print $scalar;
　　}
　　# 下面代码用以验证分隔符$/在上面只是被局部化而不是全局化
　　open FH,"test.txt" or die $!;
　　$scalar2 = ;
　　close FH;
　　print "\n\n";
　　print $scalar2;
　　print "\n";
　　应该还有更好的方法，不过暂时还没有想到