perl 打开文件句柄

发布时间：2020-12-15 23:53:03 所属栏目：大数据来源：网络整理

导读：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;

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;

一次读入一行,可以减少内存占用。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!