perlでファイルの内容を読み取る

Perlでは、open関数を使用してファイルを開き、<演算子を使用してファイルの内容を読み取ることができます。以下に例を示します。

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

# 读取文件内容
while (my $line = <$file>) {
    # 处理每行内容
    chomp $line;  # 去除末尾的换行符
    print "$line\n";
}

# 关闭文件
close($file);

上記のコードでは、open関数はfilename.txtという名前のファイルを開き、そのファイルを変数$fileに代入します。演算子はファイルを読み取り専用モードで開くことを指定します。ファイルを開くことができない場合、die関数はエラーメッセージを出力し、プログラムを終了します。

その後、ファイルの内容を1行ずつ順に読み込みながら、$line 変数に代入します。 chomp 関数で改行コードを取り除きます。 1行ずつ内容を処理できます。例えば、その内容を出力できます。

最後に、close 関数を使用してファイルを閉じます。