使用Perl从文件中读取字符串，一般有两种方法：
1. 一次性将文件中的所有内容读入一个数组中(该方法适合小文件)：
open
(FILE
,
"
filename
"
)
||
die
"
cannotopenthefile:$!
"
;
@filelist
=<
FILE
>
;
foreach
$eachline
(
@filelist
){
chomp
$eachline
;
}
close
FILE;
@filelist=<FILE>;
当文件很大时，可能会出现"out of memory"错误，这是可以采用如下方法，一次读取一行。
2. 一次从文件中读取一行，一行行地读取和处理(读取大文件时比较方便)：
open
(FILE
,
"
filename
"
)
||
die
"
cannotopenthefile:$!
"
;
while
(
defined
(
$eachline
=<
FILE
>
)){
chomp
$eachline
;
#
dowhatuwanthere!
}
close
FILE;
1. 一次性将文件中的所有内容读入一个数组中(该方法适合小文件)：
open
(FILE
,
"
filename
"
)
||
die
"
cannotopenthefile:$!
"
;
@filelist
=<
FILE
>
;
foreach
$eachline
(
@filelist
){
chomp
$eachline
;
}
close
FILE;
@filelist=<FILE>;
当文件很大时，可能会出现"out of memory"错误，这是可以采用如下方法，一次读取一行。
2. 一次从文件中读取一行，一行行地读取和处理(读取大文件时比较方便)：
open
(FILE
,
"
filename
"
)
||
die
"
cannotopenthefile:$!
"
;
while
(
defined
(
$eachline
=<
FILE
>
)){
chomp
$eachline
;
#
dowhatuwanthere!
}
close
FILE;
