Perl一次读取文件的方法

http://hi.baidu.com/wenjiejia/blog/item/ba1365226ec401a74623e8f3.html

$/ 改变默认分隔符

?

一般读取perl文件要一行一行的读；
怎么才能一次读取所有的内容呢？

众所周知的，就是用数组可以一次性全部读取出来：
open FH,"test.txt" or die $!;
@array = <FH>;
close FH;
print @array;

另外，我们可以通过重新定义分隔符$/来达到目的：
open FH,"test.txt" or die $!;
local $/=undef;
$scalar = <FH>;
close FH;
print $scalar;

程 序中把分隔符$/设置为未定义，分隔符$/默认情况下是等于回车的，在win32中就是n。
现在把它重新定义后，就不会把文件按照一行读取了；上面的程序虽然实现了使用标量读取，但是，如果这样的代码放在大程序中，还是有问题，就是分隔符$/， 如果后面会用到的话，还需要通过$/="n"来恢复。

为了节省一这步，更为了避免因为马虎而忘记恢复分隔符$/，可以通过local来局部化：

open FH,"test.txt" or die $!;
{
??????? local $/=undef;
??????? $scalar = <FH>;
close FH;
??????? print $scalar;
}
# 下面代码用以验证分隔符$/在上面只是被局部化而不是全局化
open FH,"test.txt" or die $!;
$scalar2 = <FH>;
close FH;
print "nn";
print $scalar2;
print "n";

应该还有更好的方法，不过暂时还没有想到