- 1 名前：nobodyさん [02/11/01 18:06 ID:umVq3FGM]
- ・7行×79文字
・Perl
どうぞ。
- 445 名前：nobodyさん mailto:ルルイエage [2008/02/16(土) 22:06:19 ID:???]
- >>327 7kaiseki.cgi
#!/usr/bin/perl
use CGI":all";charset$c=Shift_JIS;($P,$C,$M)=<DATA>;($p=param P).$/ne$P&¨sub
l{(sort@_)[-1]/10||1}sub d{@p=localtime time-86400*pop;$g=(190001+$p[5]*100+$p[4
])*100+$p[3]}open C;%c=map{/<>/;$`,$'}<C>;($l,@l)=$c{$q=param(T)||d}=~/\d+/g;put
header,start_html(-encoding,$c,lang,ja),h1($q),table((map{Tr td[$z++.':00',$_+0,
"/"x($_/l@l)]}@l[0..23]),Tr td[Total,$l+0,""]),h1(Mes),dl(map{s/<>$//;/<>/;$`!=$
z&&dt($z=$`.':00'),dd$'}grep{s/$q<>//}open(M),<M>),h1(Past14day),table(map{Tr td
[a({href,"?P=$p&T=".d$x++},$g),$_,"/"x($_/l@s)]}@s=map{$c{d$_}+0}0..13),end_html
__DATA__
password
log.dat
mes.dat
・HTML適当。
・ファイルロックなし。
・DATAの１行目にパスワードを設定、「?P=password」でリクエスト。
- 446 名前：nobodyさん mailto:sage [2009/10/15(木) 22:52:19 ID:???]
- 最終カキコ一年前なのになんで落ちないんだ？
- 447 名前：nobodyさん mailto:sage [2009/10/16(金) 18:37:54 ID:???]
- >>446
cos this thread is very good! don't you think so?
|
 |
