No.16393 名無しさん - <pre><code># Perl で置換処理

# Perl で置換処理

my $src = '<p>てすと。 nilab-22 はトラッキングIDです。<br /><a href="http://www.amazon.co.jp/gp/product/BT00DHI8GO?tag=nilab-22">ねこ</a><br /><a href="http://www.amazon.co.jp/exec/obidos/ASIN/BT00DHI8GO/nilab-22/ref=nosim/">包丁</a><br /><a href="http://www.amazon.co.jp/o/ASIN/B013012XU0/nilab-22">ぐわぐわ</a></p>';

$dst = &replace_amazon_tracking_id($src);
print "$src\n";
print "$dst\n";


sub replace_amazon_tracking_id {

    my $s = shift;

    $s =~ s/tag=nilab-22/tag=nilabwiki-22/g;
    $s =~ s/\/nilab-22/\/nilabwiki-22/g;

    return $s;
}