要素数が多い置換についてです

質問

こんにちは。perl超初心者です。
似たような質問が以前にもあったらすみません。

あるデータ内で、特定の文字列があった場合、その一部を置換して出力したいのですが、
　0ab:P, 10ab:S, 20ab:D
　 　↓以下に置換したいです
　0ab:D, 10ab:S, 20ab:D
以下のように、そのまま式に当てはめてもうまくいきません。
　　$str =~ s/0ab:P, 10ab:S, 20ab:D/0ab:D, 10ab:S, 20ab:D/g;
　　print OUT "$str\n";

単純にPをDに置換するという訳ではなく、
上記の条件に完全一致する時のみ置換したいです。
初心者の為、変な記述をしてるかもしれませんが、
何卒ご教授お願い致します。

回答No.1

asock · ベストアンサー

$str = "(1) 0ab:P, 10ab:S, 20ab:D (2) 0ab:P, 10ab:T, 20ab:D";
$str =~ s/0ab:P, 10ab:S, 20ab:D/0ab:D, 10ab:S, 20ab:D/g;
print $str;

としたら

(1) 0ab:D, 10ab:S, 20ab:D (2) 0ab:P, 10ab:T, 20ab:D

という出力が得られましたので、正常に動作しているようですよ。
$strに格納している文字列はどういった文字列ですか？ もし改行を含む文字列なのであれば、

$str =~ s/0ab:P, 10ab:S, 20ab:D/0ab:D, 10ab:S, 20ab:D/gs;

とオプションの s を追加してみてください。

お礼

ご回答どうもありがとうございます。
この記述でうまくいきました！
よく見てみると別の部分で記述を間違えていました。。
ご回答頂けなかったら、未だに原因が分からず四苦八苦していたと思います。
大変助かりました、また何かありました際には、よろしくお願いします。