ファイルの呼び出しと抽出を Perl で実装する方法

Perl では、open 関数を使用してファイルを開き、「 < 」記号を使用してファイルの内容を読み取ることができます。以下は、ファイルを開いてからその中のコンテンツを抽出する方法を示すサンプルコードです。

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

# 逐行读取文件内容
while (my $line = <$file>) {
    # 在这里处理每一行的内容
    print $line;
}

# 关闭文件
close($file);

上のコードでは、filename.txtは開かれるファイル名です。<記号を使用して、ファイルを読み取り専用モードで開きます。ファイルを開くことができない場合、die関数がエラーメッセージを出力し、プログラムの実行を終了させます。

whileループ内では、<$file>を利用して１行ずつファイルをよみ、変数$lineに格納します。ループ内ではその内容に対して処理を実行します。

最後に close関数でファイルを閉じる。

このコードは、単なる基本的な例であり、具体的な要件に応じて変更および拡張できることに注意してください。