perl タグ閉じ忘れチェック

自分用の覚書として、

$memoにNOBR、CODE、B、PRE、FONTのタグあった場合にこれを途中で切り出して終了タグが削除されている時に追加する場合のサンプル。

ex:<font =”color:#121212″><b>あーだこーだと書いてみる</b>
→<font =”color:#121212″><b>あーだこーだと書いてみる</b></font>

if($memo =~ /(<(NOBR|CODE|B|PRE|FONT)\b(?:(?!<\/\2>).)*(?:<\2>|$))/sigx) {$memo.="</$2>";}

http://www.din.or.jp/~ohzaki/regex.htm#NoEndTag
を参考にしています。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください