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 "\n\n";

print $scalar2;

print "\n";

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