open (FILE,"<","cpbs.txt") || die "cannot open the file:$!\n";
my @temp=<FILE>;
foreach (@temp) {
print "Found $_\n";
}
close FILE;
读入大型文件:
open (FILE,"<","cpbs.txt") || die "cannot open the file:$!\n";
while (<FILE>){
print "Found $_\n";
}
close FILE;
一次读入一行,可以减少内存占用。
perl 打开文件句柄
最新推荐文章于 2024-06-30 16:01:04 发布
这篇博客介绍了如何使用Perl打开文件句柄并读取文件内容。示例代码展示了两种方法,一种是将整个文件内容读入数组,另一种是逐行读取,以减少内存占用。
摘要由CSDN通过智能技术生成