使用Perl從文件中讀取字符串，一般有兩種方法：
1. 一次性將文件中的所有內(nèi)容讀入一個數(shù)組中(該方法適合小文件)：
open
(FILE
,
"
filename
"
)
||
die
"
cannotopenthefile:$!
"
;
@filelist
=<
FILE
>
;
foreach
$eachline
(
@filelist
){
chomp
$eachline
;
}
close
FILE;
@filelist=<FILE>;
當(dāng)文件很大時，可能會出現(xiàn)"out of memory"錯誤，這是可以采用如下方法，一次讀取一行。
2. 一次從文件中讀取一行，一行行地讀取和處理(讀取大文件時比較方便)：
open
(FILE
,
"
filename
"
)
||
die
"
cannotopenthefile:$!
"
;
while
(
defined
(
$eachline
=<
FILE
>
)){
chomp
$eachline
;
#
dowhatuwanthere!
}
close
FILE;
1. 一次性將文件中的所有內(nèi)容讀入一個數(shù)組中(該方法適合小文件)：
open
(FILE
,
"
filename
"
)
||
die
"
cannotopenthefile:$!
"
;
@filelist
=<
FILE
>
;
foreach
$eachline
(
@filelist
){
chomp
$eachline
;
}
close
FILE;
@filelist=<FILE>;
當(dāng)文件很大時，可能會出現(xiàn)"out of memory"錯誤，這是可以采用如下方法，一次讀取一行。
2. 一次從文件中讀取一行，一行行地讀取和處理(讀取大文件時比較方便)：
open
(FILE
,
"
filename
"
)
||
die
"
cannotopenthefile:$!
"
;
while
(
defined
(
$eachline
=<
FILE
>
)){
chomp
$eachline
;
#
dowhatuwanthere!
}
close
FILE;
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯(lián)系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點(diǎn)擊下面給點(diǎn)支持吧，站長非常感激您！手機(jī)微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點(diǎn)擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
