使用perl一行一行读入文件的方法大家都很清楚,可以使用$line=<FILE>;读入一行或者@lines=<FILE>;把每行读入到一个数组中。
可以通过重定义分隔符$/来完成一次性读入:
open FILE,"1.txt" or die $!;
{
local $/=undef;//用local是为了在其他时候用到分隔符时,不会出错
$content= <FILE>;
close FILE;
}
分隔符$/默认是回车,在这里我们把它改成了未定义undef
可以进一步简化代码:
$content = do { local $/=undef; <FILE>; };