【HTML】StrictなHTMLのBBSを作ろう【Perl,PHP】 (465ﾚｽ)

【HTML】StrictなHTMLのBBSを作ろう【Perl,PHP】 http://medaka.5ch.net/test/read.cgi/php/1101518977/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

419: nobodyさん [] 2007/02/04(日) 10:34:39 ID:nrwoc+hC さっさと書いた正規表現。 my($number,$date,$name,$comment) = split(/<>/); $comment =~ s/(<CL>){2,}/\n\t\t\t\t\t\t/sg;#改行連続を別の<p>ではさみたい(とりあえず考案中) my @comment_lines = split(/<CL>/,$comment); foreach(@comment_lines){ 　　s/https?\:[\w\.\~\-\/\?\&\=\@\;\#\:\%]+/<a href=\"$&\">$&<\/a>/sg; 　　s/(\>\;\>\;)([0-9]+(-)?([0-9]+)?)/<a href=\"$file{'read'}\/$2\" title="$2" class="anchor">$&<\/a>/sg; 　　s/^\</\t\t\t\t\t\t\</s; 　　s/\>$/\>\n/s; 　　s/^(\>\;){1}.*$/<A>$&<\/A>/s; 　　s/^#.*$/<B>$&<\/B>/s; 　　s/^[^<#\t].*$/<C>$&<\/C>/s; } $comment = join('',@comment_lines); $comment =~ s/<\/A><A>|<\/B><B>|<\/C><C>/<br \/>/sg; $comment =~ s/<A>/\t\t\t\t\t\t<blockquote><p class="quot">/sg; $comment =~ s/<\/A>/<\/p><\/blockquote>\n/sg; $comment =~ s/<B>/\t\t\t\t\t\t<p class="ps">/sg; $comment =~ s/<C>/\t\t\t\t\t\t<p class="txt">/sg; $comment =~ s/<\/(B|C)>/<\/p>\n/sg; push(@article,qq(\t\t\t\t\t<dt><a href="$file{'read'}/Re.$number/" title="Re.$number">$number: $date $name</a></dt>\n\t\t\t\t\t<dd>\n$comment\n\t\t\t\t\t</dd>\n)); 汚ぇｗｗｗｗｗｗｗｗｗｗｗ http://medaka.5ch.net/test/read.cgi/php/1101518977/419

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.025s