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

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 回答日時： 2001/04/04 15:41

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

かな？

この回答へのお礼

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

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

お礼日時：2001/04/05 11:42

No.3 回答者： a-kuma 回答日時： 2001/04/06 14:28

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

[^(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>" とかコメントタグが入ってくると無効になって
しまいますがとりあえずはこれでいいかなと。

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

お礼日時：2001/04/06 19:46

No.2 回答者： a-kuma 回答日時： 2001/04/05 14:33

> ところで「()」のグループ化で「このグループ以外」って指定は

> できないんでしたっけ？
>
> [^(A|FONT|B|BR)]
> みたいな…。

無い。

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

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

この回答へのお礼

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

お礼日時：2001/04/05 18:36