2008-03-23 (3/3page)
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
を参考にしています。
$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
を参考にしています。
- 分類タグ
- Perl
- このエントリーのURL
- http://blog.peaks-jp.com/2008/03/perl.html
- このエントリーのLINK
表示ウィンドウサイズまでのズームと、ズームアウトして自然に消えるの付け加えました。リンク先の画像の存在を確認するように修正しました。