Perlでの文字列置換に関して

えーーー、同じようなことをした経験あります。 $data = ~s#\"##g; $data = ~s#<.*>##g; 一部のタグを消したいときは $data = ~s#</p>##g; $dataはタグが入っています。 　/　ではなく　#　を使ったのは</p>を消したいときに \を付けるのがめんどうだったためです。 最後のgは$data内の<p>を全て消すという意味。 一行目で全ての、ダブルクォーテーション全部消去しました また、ソースが大文字か小文字か分からないので trコマンドを使って全て小文字にあらかじめしておきます

複数行に対処したいなら、$scalarなどに入力データを全部つなげておいて、s/<(.*?)>//g; でいいとおもいます。 あとはsplitで分解すれば、問題ないかと。 エンティティの無効化は、 %ent = ('&' => 'amp', '<' => 'lt', '>' => 'gt', '"' => 'quot'); と指定して、 s/([&<>"])/&$ent{$1};/g; ってやると、ちょっとかっこいいですよ。重たいですけど。

みなさんが書かれている方法で普通は問題ないですが、厳密にいうと <!-- <br> -->　　→　　--> <foo bar=">">　→ "> なんてことになるので、また別の方法があります。 詳しくは下記URLを参照してください。 勉強になるページです。激しくオススメ！

何か半角文字だと見にくくなってしまったので、置換の内容だけ全角で書き直しますね。 上からそれぞれ ｓ／＜（．＊？）＞／／ｇ； ｓ／＜／＆ｌｔ；／ｇ； ｓ／＞／＆ｇｔ；／ｇ； です。