在Perl中，可以使用open函數打開一個文件，并使用<操作符來讀取文件的每一行。下面是一個示例代碼：
open(my $file, '<', 'file.txt') or die "Could not open file: $!";
while (my $line = <$file>) {
chomp $line; # 去除行尾的換行符
# 處理每一行的數據
print $line;
}
close($file);
上述代碼中，open函數將文件file.txt打開并賦值給變量$file。然后，使用<$file>來讀取文件的每一行，并將其賦值給變量$line。在while循環中，可以處理每一行的數據。chomp函數用于去除每一行的行尾換行符。最后，記得使用close函數關閉文件。
