« 使用可能なperlのモジュール | メイン | テーブルの追加など alter table »
2006年11月24日
特定タグのみ消去
# もにょもにょをそのまま
$strings=~s/()(.*?)(<¥/em>)/¥x01em¥x02¥2¥x01¥/em¥x02/g;
# もにょもにょをそのまま
$strings=~s/()(.*?)(<¥/a>)/¥x01a ¥2¥x02¥4¥x01¥/a¥x02/g;
#
をそのまま
$strings=~s/
/¥x01br¥x02/g;
# 指定しないタグはすべて表示
$strings=~s/
$strings=~s/>/>¥;/g;
# 元に戻す処理
$strings=~s/¥x01/
$strings=~s/¥x02/>/g;
投稿者 muuming : 2006年11月24日 17:44