Question

如何使用Perl读取文件

若以下回答无法解决问题，邀请你更新回答

Answer 1

整体读入，逐行处理
open(FILE,"<","/home/chenmi/.bashrc")||die"cannot open the file: $!\n";
@linelist=<FILE>;
foreach $eachline(@linelist){
print $eachline;
}
close FILE;
逐行读入，边读边处理
open(FILE,"<","/home/chenmi/.bashrc")||die"cannot open the file: $!\n";
while (<FILE>){
print;
}
close FILE;
第一种方法适合于较小的文件，一次全部读入到array之后可以更加灵活的处理;第二种方法则适合于大型文件，一次读入一行，可以减少内存占用。