在Perl中，可以使用while循環和<FILE>操作符逐行讀取文件內容。下面是一個簡單的示例：
# 打開文件
open(my $file, "<", "filename.txt") or die "無法打開文件：$!";
# 逐行讀取內容
while (my $line = <$file>) {
# 處理每一行的內容
chomp $line; # 移除行末的換行符
print "$line\n"; # 輸出每一行的內容
}
# 關閉文件
close($file);
在上面的示例中，open函數用于打開文件，并使用<操作符將文件句柄綁定到文件。然后，使用while循環逐行讀取文件內容，每次循環中將讀取的行存儲在變量$line中。在循環體內可以對每一行的內容進行處理。最后，使用close函數關閉文件。
