締切済み

条件を指定しての置換

2008/08/01 14:59

Perlでの文字置換の質問です。以下のように文字列があった場合に +AAA a01 name +BBB b01 name +CCC c01 name +DDD d01 name ・・ +CCCと+DDDの間にあるnameの文字のみaddressに置換したい時はどのようにPerlで記述したらよろしいでしょうか。全てのnameがaddressになってしまい困っています。よろしくお願いします。完成形↓ +AAA a01 name +BBB b01 name +CCC c01 address +DDD d01 name

kenkenaoao
お礼率25% (1/4)

Perl
回答数4
ありがとう数19

みんなの回答 （4）
専門家の回答

みんなの回答

Tacosan
ベストアンサー率23% (3656/15482)

2008/08/01 18:28 回答No.4

ここでは if の条件で使われているので, 件の URL にある「フリップフロップ演算子」の方＞#3. 意味は「左にある条件が成り立ってから右にある条件が成り立つまでの間」です. 今は s/// if /\+CCC/ .. /\+DDD/; なので「/\+CCC/ が成り立ってから /\+DDD/ が成り立つまでの間 s/// を実行する」という意味になって, 結局「/\+CCC/ にマッチする行から /\+DDD/ にマッチする行までに対して s/// で置換する」ということになります. ただ, 「パターンとして覚える」なら s/// if /\+CCC/ ... /\+DDD/; と . をもう 1つ加えた方が安全かも.

pick52
ベストアンサー率35% (166/466)

2008/08/01 17:35 回答No.3

> ちなみに(/\+CCC/../\+DDD/)この中の..はどういう意味ですか。これは範囲演算子では? print "$_\n" foreach(0 .. 10);

参考URL：: http://ja.wikibooks.org/wiki/Perl/%E6%BC%94%E7%AE%97%E5%AD%90#.E7.AF.84.E5.9B.B2.E6.BC.94.E7.AE.97.E5.AD.90

pick52
ベストアンサー率35% (166/466)

2008/08/01 15:48 回答No.2

+CCCと+DDDの間にあるnameは1つのみですか? また、+CCCと+DDDは残しますか? 恐らくはもっと効率のいい方法があると思いますけど(そもそも書き方間違っている可能性大です)こんな感じで。 my $str = <<'TEXT'; +AAA a01 name +BBB b01 name +CCC c01 name +DDD d01 name ・・ TEXT $str =~ s/(?=\n)?(?=\+CCC\n)(.*?)(name)(\n.*?)*?(?<=\n\+DDD)(?<=\n)?/$1address$3/gs; print $str; exit;