使用perl一行一行读入文件的方法大家都很清楚，可以使用
$line=<FILE>; #读入一行
或者
@lines=<FILE>; #把每行读入到一个数组中。
可以通过重定义分隔符$/来完成一次性读入：
open FILE,"1.txt" or die $!;
{
local $/=undef; #//用local是为了在其他时候用到分隔符时，不会出错
$content= <FILE>;
close FILE;
}
分隔符$/默认是回车，在这里我们把它改成了未定义undef
可以进一步简化代码：
$content = do { local $/=undef; <FILE>; };
原文：https://blog.csdn.net/sdcyzjq/article/details/6797881
此外，我们在网易云课堂上有各种教学视频，有兴趣可以了解一下：
1. 文章越来越难发？是你没发现新思路，基因家族分析发2-4分文章简单快速，学习链接：基因家族分析实操课程
2. 转录组数据理解不深入？图表看不懂？点击链接学习深入解读数据结果文件，学习链接：转录组（有参）结果解读；转录组（无参）结果解读
3. 转录组数据深入挖掘技能-WGCNA，提升你的文章档次，学习链接：WGCNA-加权基因共表达网络分析
4. 转录组数据怎么挖掘？学习链接：转录组标准分析后的数据挖掘
5. 微生物16S/ITS/18S分析原理及结果解读
6. 更多学习内容：linux、perl、R语言画图，更多免费课程请点击以下链接：
https://study.omicsclass.com/
