Perlでのファイル呼び出しと抽出の実現方法

perlでは、open関数でファイルを開いて内容を読み取り、正規表現で必要なデータを抽出し出します。

ネイティブなファイルの呼び出しと抽出を実現するサンプルコードを以下に示します。

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

# 读取文件内容
while(my $line = <$fh>) {
  # 提取数据
  if($line =~ /Pattern/) {
    my $data = $1; # 提取匹配的数据
    print $data . "\n";
  }
}

# 关闭文件
close($fh);

このコードでは、open 関数は file.txt というファイルを開き、ファイルハンドルを $fh 変数に格納しています。ファイルを開く際、< 演算子を使用しています。これは、ファイルを読み込み専用で開くことを意味します。

その後、ファイルの各行を順番に読み込んでいき、正規表現で必要なデータをマッチングする。マッチングに成功すれば、マッチングしたデータを$dataという変数に格納し、出力する。

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

実際使用する際には、ファイルフォーマットや抽出手法に合わせて正規表現のパターンを調整する必要がありますのでご注意ください。