特定タグ以外を変換したい

質問

HTML文書から特定のタグ以外を変換しようとしているのですが、
[^]とiがヘンな風に作用しているのか上手くいきません。^^;
わかる方いましたら教えてください。

$foo = '<a href="bar">hoehoe</a><b>auau</b>';
$foo =~ s/<(\/[^a] *.*?)>/##$1##/isg;

■希望
<a href="bar">hoehoe</a>##b##auau##/b##
■現実
<a href="bar">hoehoe##/a####b##auau##/b##

以下のようにやると効率的ではありませんがうまくいきます。

$foo =~ s/[<>]/##/gs;
$foo =~ s/##(\/*a *[^#]*)##/<$1>/igs;

回答No.1

a-kuma · ベストアンサー

$foo =~ s/<(\/?[^\/a][^>]*)>/##$1##/ig;

かな？

お礼

ありがとうございます。:-)
その後いろいろ試してこちらでも同じものに行き着きました。
ところで「()」のグループ化で「このグループ以外」って指定は
できないんでしたっけ？

[^(A|FONT|B|BR)]
みたいな…。

回答No.3

a-kuma

> 「教えてあげないと」の意味がよくつかめません。

[^(A|FONT|B|BR)]

の ^ に期待していることは、

<\/?([a-zA-Z]+).*>

の \1 に相当するところのうちの A|FONT|B|BR 以外ってこと
ですもんね。

正規表現で言うと、単純に A|FONT|B|BR 以外って言っちゃうと
長さ０の文字列や空白も、それに相当しますから。

お礼

>長さ０の文字列や空白も、それに相当しますから。
そうですよね。自分でもあとから気付きました。ハズかしいです。^^;

最終的にはこんな感じになりました。

$oktag = 'A|B|FONT|BR';
$hoe =~ s/\<(?!\/?($oktag)( [^>]*)?>)([^>]*)>/&lt;$3&gt;/oisg;

実際は value="<br>" とかコメントタグが入ってくると無効になって
しまいますがとりあえずはこれでいいかなと。

ありがとうございました。

回答No.2

a-kuma

> ところで「()」のグループ化で「このグループ以外」って指定は
> できないんでしたっけ？
>
> [^(A|FONT|B|BR)]
> みたいな…。

無い。

「このグループ以外」と言っても、あなたは暗黙に英数字からなる単語の
うち、と考えているわけですから、それも教えてあげないと。

でも、私は、それを一気に書ける正規表現を知りません。

お礼

やはりそうですか。ありがとうございました。
「教えてあげないと」の意味がよくつかめません。
もしよければ補足などお願いします。