在Perl中，可以使用open函數(shù)打開文件，然后使用<操作符來逐行讀取文件。下面是一個(gè)示例代碼：
open(my $file, '<', 'filename.txt') or die "無法打開文件: $!";
while (my $line = <$file>) {
chomp $line; # 去除行尾的換行符
# 處理每一行數(shù)據(jù)
print "$line\n";
}
close($file);
在上面的代碼中，open函數(shù)用于打開名為filename.txt的文件，并將文件句柄保存在變量$file中。<操作符用于從文件句柄中獲取每一行數(shù)據(jù)，保存在變量$line中。chomp函數(shù)用于去除每一行末尾的換行符。然后可以對每一行數(shù)據(jù)進(jìn)行進(jìn)一步處理。
最后，記得在讀取完文件后使用close函數(shù)關(guān)閉文件句柄，釋放資源。
億速云公眾號
手機(jī)網(wǎng)站二維碼