perlのプログラムでファイルの各行を読み出す

Perlではwhileループと演算子を使用してファイルの内容を1行ずつ読み込めます。以下に簡単な例を示します。

# 打开文件
open(my $file, "<", "filename.txt") or die "无法打开文件：$!";

# 逐行读取内容
while (my $line = <$file>) {
  # 处理每一行的内容
  chomp $line; # 移除行末的换行符
  print "$line\n"; # 输出每一行的内容
}

# 关闭文件
close($file);

上記の例では、open 関数はファイルを開くために使用され、< 演算子によってファイルハンドルがファイルにバインドされます。その後、while ループを使用してファイルの内容を逐次的に読み込みます。各ループでは、読み込まれた行が変数 $line に格納されます。ループ本体では、各行の内容を処理することができます。最後に、close 関数を使用してファイルを閉じます。