- Regular Expression(正規表現) Part12
922 ：デフォルトの名無しさん[]：2014/09/24(水) 16:21:22.76 ID:OftfFmTf - ●Regular Expressionの使用環境→perl v5.8.8
●検索か置換か？→置換
●説明
下記のような文字列があって、ここから入れ子が許された#ITEM〜#ENDを削除して残りを抽出するということをしたいです。
my $str = <<EOF;
aaa
#comment a
#ITEM
bbb
#ITEM
ccc
#END
ddd
#END
#comment b
eee
#ITEM
fff
#END
ggg
EOF
●希望する結果
aaa
#comment a
#comment b
eee
ggg
●その他
下記のように入れ子の内側から消していけば出来そうではありますが、「#ITEM以外の文字」という部分が思いつきません。
1 while $str =~ s/#ITEM(#ITEM以外の文字)*#END//s;
どのような正規表現にすれば実現できますでしょうか？
|