Perlスクリプトを使用して複数のコンテンツを検索して置換する方法

2年 ago
桜, 春樹
1 minute

複数のコンテンツに対して検索と置換を行うPerlスクリプトを使用するには、次の手順に従ってください。

  1. 検索置換を行う内容を記述したテキストファイルを作成します。各行には検索と置換のルールが記載されており、特定の区切り文字で区切られています。例えば、各行をコンマやタブで検索と置換のコンテンツに分割できます。
  2. 検索と置換ルールの記載されたテキストファイルはopen関数を使用してネイティブに Perl スクリプトファイルとして作成し、while ループでテキストファイルの各行を読み込みます。
  3. ループ内で、各行を区切り文字でsplit関数で分割して、検索したいこと、置き換えしたいことを見つける。 2つの内容をそれぞれ変数に格納する。
  4. s///関数は、対象ファイルや文字列に対して検索置換を行います。検索内容と置換内容は、s///関数の引数として指定します。
  5. ファイルを読み込み、置換対象のファイルをオープンするopen関数を使用します。
  6. s///関数を用いて対象ファイルの中身を検索置換します。
  7. 変更した内容をopen関数を使って、対象のファイルに書き出します。
  8. すべての開いているファイルハンドルを閉じます。

これは、複数のコンテンツに対して検索と置換を実行する方法を示すネイティブPerlスクリプトのサンプルです。

#!/usr/bin/perl

# 打开包含查找和替换规则的文本文件
open(my $rules, "<", "rules.txt") or die "无法打开文件：$!";

# 逐行读取文本文件
while (my $line = <$rules>) {
    chomp $line;

    # 拆分每行的查找和替换内容
    my ($find, $replace) = split(",", $line);

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

    # 读取目标文件内容
    my @lines = <$target>;
    close($target);

    # 对目标文件内容执行查找和替换
    foreach my $line (@lines) {
        $line =~ s/$find/$replace/g;
    }

    # 打开目标文件以写入修改后的内容
    open($target, ">", "target.txt") or die "无法打开文件：$!";
    print $target @lines;
    close($target);
}

# 关闭文件句柄
close($rules);

上例では、このスクリプトでは rules.txt というテキストファイルで検索置換のルールを管理し、対象ファイルを target.txt として検索置換を実行します。このファイル名は必要に応じて変更でき、状況に合わせてこのスクリプトを調整できます。

上記は一例ですので、必要に応じてスクリプトを修正したり、拡張したりしてください。

bannerAds