用Perl一次性读入文件全部内容
2022-12-30 11:20 投稿人：网络编辑
使用perl一行一行读入文件的方法大家都很清楚，可以使用$line=
可以通过重定义分隔符$/来完成一次性读入：
open FILE,"1.txt" or die $!;
{
local $/=undef;//用local是为了在其他时候用到分隔符时，不会出错
$content= ;
close FILE;
}re>
分隔符$/默认是回车，在这里我们把它改成了未定义undef
可以进一步简化代码：
$content = do { local $/=undef; ; };re>