Perl一次读取文件的方法

概述http://hi.baidu.com/wenjiejia/blog/item/ba1365226ec401a74623e8f3.html $/ 改变默认分隔符   一般读取perl文件要一行一行的读； 怎么才能一次读取所有的内容呢？ 众所周知的，就是用数组可以一次性全部读取出来： open FH,"test.txt" or die $!; @array = <FH>; close FH; pri

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

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

总结

以上是内存溢出为你收集整理的Perl一次读取文件的方法全部内容，希望文章能够帮你解决Perl一次读取文件的方法所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。