Perlについての質問箱 39箱目

Perlについての質問箱 39箱目 at TECH

428:デフォルトの名無しさん
09/03/31 17:21:08
>>427
再帰的にやるなら

my $hoge;
$hoge = qr/<(??{$hoge})?h(??{$hoge})?o(??{$hoge})?g(??{$hoge})?e(??{$hoge})?>/;
$str =~ s/$hoge//g;

とか? もっと綺麗に書けそうだが。
5.10以降ならキャプチャバッファ(see perl5100delta)使って一行でしかも効率良く書けるはず。

次ページ

続きを表示

1を表示