【Perl】掲示板を使ろう！ (502ﾚｽ)

【Perl】掲示板を使ろう！ http://medaka.5ch.net/test/read.cgi/php/988890976/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

103: 名無しさん＠お腹いっぱい。 [] 2001/07/20(金) 01:19 ID:AwYw1thE #!/usr/local/bin/perl use CGI $a=new CGI;print"Content-type: text/html\n\n<form action=n.cgi>"; print"<input name=n><input name=t>\n";$n=$a->param('n'),$t=$a->param('t'); if($t){$t=~s/,|<|>|:/*/g;if(!$n){$n="名無しさん＠お腹いっぱい";}open(I,">>y"),print I"$n,$t\n";} open(I,"y"),@I=<I>;for($i=$#i;$i>$#i-10;$i--){($j,$k)=split(/\,/,$I[$i]),print"<hr>$j: $k";} 5行 http://medaka.5ch.net/tes

t/read.cgi/php/988890976/103

---

ﾒﾓ帳

(0/65535文字)

---

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

---

あと 399 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.013s