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