七行プログラミング (452ﾚｽ)
上
下
前
次
1-
新
41
(1)
:
◆FruitsMIpE
02/11/03 18:15 ID:???
AA×
[
240
|
320
|
480
|600|
原寸
|
JPG
|
べ
|
ﾚｽ栞
|
ﾚｽ消
]
41: ◆FruitsMIpE [sage] 02/11/03 18:15 ID:??? 名前入力欄つき掲示板 $q=$ENV{QUERY_STRING}; if($q){@p=split /[&;]/,$q; foreach(@p){($a,$b)=split "="; $b=~tr/+/ /; $b=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg; $i{$a}=$b;} open W, ">> b.log"; print W "$i{n}<>$i{m}\n"; close W;} print "Content-type: text/html\n\n<html>\n<head><title>掲示板</title></head>\n<body>\n"; open R, "b.log"; while(<R>){chomp; ($n,$m)=split "<>"; print "$n：$m<br>\n";} close R; print qq{<hr>\n<form>Name<input type="text" name="n"> <input type="text" name="m" size="64"><input type="submit"></form>\n<hr>\n</body></html>\n}; exit; http://medaka.5ch.net/test/read.cgi/php/1036141603/41
名前入力欄つき掲示板 掲示板
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 411 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
ぬこの手
ぬこTOP
0.026s
