使用perl一行一行读入文件的方法大家都很清楚,可以使用$line=<FILE>;读入一行或者@lines=<FILE>;把每行读入到一个数组中。
可以通过重定义分隔符$/来完成一次性读入:
open FILE,"1.txt" or die $!; { local $/=undef;//用local是为了在其他时候用到分隔符时,不会出错 $content= <FILE>; close FILE; }
分隔符$/默认是回车,在这里我们把它改成了未定义undef
可以进一步简化代码:
$content = do { local $/=undef; <FILE>; };
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。