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