Perlでファイルの各行を読み込む方法は何ですか？

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関数を使用してファイルを閉じることを忘れないでください。