Perl读取文件的两种常用方式

Perl读取文件的两种常用方式

转载▼

整体读入，逐行处理

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之后可以更加灵活的处理;

第二种方法则适合于大型文件，一次读入一行，可以减少内存占用。