七行プログラミング (452レス)
上
下
前
次
1-
新
365
(5)
: 2006/01/21(土)13:50 ID:???
AA×
[240|
320
|
480
|
600
|
100%
|
JPG
|
べ
|
レス栞
|
レス消
]
365: [sage] 2006/01/21(土) 13:50:12 ID:??? #!/usr/bin/perl my@d=([qw/? ? ? ? ? ? ? ? ? ? ? ? ? ?/],[qw/☆ △ ■/]); my$c='Shift_JIS';my$l='ja';use CGI':standard';my@r=(0)x@d; print header(-charset=>$c),start_html(-encoding=>$c,-lang=>$l),start_form, (map{my$i=$_;ul li[(map{$r[$i]+=param($_);$_.textfield -name=>$_}@{$d[$i]}), "計 $r[$i]"]}0..$#d),ul(li"$r[1]÷$r[0]=".eval{$r[1]/$r[0]}),submit,end_form, end_html; http://medaka.5ch.net/test/read.cgi/php/1036141603/365
計
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 87 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
ぬこの手
ぬこTOP
0.017s