Perlを使用してファイルを1行ずつ読み取る

Perlではopen関数でファイルをオープンして、<演算子で1行ずつ読み込むことができます。例：

open(my $file, '<', 'filename.txt') or die "无法打开文件: $!";
while (my $line = <$file>) {
chomp $line;  # 去除行尾的换行符
# 处理每一行数据
print "$line\n";
}
close($file);

ファイルfilename.txtを開き、ファイルハンドルを$fileへ格納します。演算子でファイルハンドルから１行ずつデータを取得し、変数$lineへ格納します。関数chompで改行コードを各行から削除します。以降、各行に対してさまざまな処理を行うことができます。

最後に、ファイルを読み終えたら、close関数を使ってファイルハンドルを閉じて、リソースを開放するのを忘れないでください。