Perl一次读取文件的方法
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";
应该还有更好的方法，不过暂时还没有想到
页:
[1]