Perlコーディング初心者質問スレ Part 43
レス数が950を超えています。1000を超えると書き込みができなくなります。
0978nobodyさん
2005/10/16(日) 00:09:56ID:???タグ内だけ処理がしたいと。
my $str = '<div>\\<f\o\r\m \n\a\m\e="test" />\\<br />';
my @tag = ();
$str =~ s/(<.*?>)/push(@tag,$1);'<>';/eg;
foreach (@tag) {
s/\\//g;#好き勝手に処理
}
$str =~ s/<>/shift(@tag);/eg;
そもそもなんでそんな処理が必要なの？仕様の方を疑っちゃうよ。
レス数が950を超えています。1000を超えると書き込みができなくなります。