perl文件读取之心得

在perl中用到的读文件一般有两种方法:
1.先把整个文件download到一个数组里面然后对数组进行遍历操作。
如:
open (IN,"alignresult.txt") ||(die "can not open the file input.txt/n$!");
my @all = <IN>;
foreach $line(@all){
process $line;}
或者
foreach $line(<IN>){...}
语义: 将文件load到数组中，在对数组进行遍历操作
这样子做得缺点是文件很大时,会占据很大内存，当然速度上占优。
2.为节省内存，一般建议如下操作
open (IN,"alignresult.txt") ||(die "can not open the file input.txt/n$!");
while ($line = <IN>){..}
这样的语义:
每次$line = <IN>，文件指针后移