perl 檔案讀取

轉載地址：http://blog.csdn.net/omohe/article/details/1562515

使用Perl從檔案中讀取字串，一般有兩種方法：

1. 一次性將檔案中的所有內容讀入一個數組中(該方法適合小檔案)：

open(FILE,"filename")||die"can not open the file: $!";
@filelist=<FILE>;

foreach $eachline (@filelist) {
        chomp $eachline;
}
close FILE;

@filelist=<FILE>;
當檔案很大時，可能會出現"out of memory"錯誤，這是可以採用如下方法，一次讀取一行。

2. 一次從檔案中讀取一行，一行行地讀取和處理(讀取大檔案時比較方便)： 

open(FILE,"filename")||die"can not open the file: $!";

while (defined ($eachline =<FILE>)) {
     chomp $eachline;
         # do what u want here!
}
close FILE;