七行プログラミング

**nobodyさん** · 02/11/01 18:06

・7行×79文字
・Perl

どうぞ。

**nobodyさん** · 2008/02/16(土) 22:06:19

>>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」でリクエスト。

**nobodyさん** · 2009/10/15(木) 22:52:19

最終カキコ一年前なのになんで落ちないんだ？

**nobodyさん** · 2009/10/16(金) 18:37:54

>>446
cos this thread is very good! don't you think so?

?PLT(12079) · 2012/09/30(日) 17:44:14.82

　　　　　　　　　 |　|　ｶﾞｶﾞｶﾞｶﾞｶﾞｯ
　　　　　　　　　 |　|
　　　　　　　　　人
　　∧＿∧　　 < 　>_∧∩
　（　・∀・）　　人｀Д´）/ ←>>140
　と　　　　）　　< 　>_∧∩
　　Ｙ　/ノ　　.人｀Д´）/ ←>>155
　　　 /　）　　 < 　>_∧∩
　＿/し'　／／. Ｖ｀Д´）/ ←>>320
　（＿フ彡　　　　　　　 /

**nobodyさん** · 2017/12/30(土) 12:58:56.43

誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

WUFNFIRDC9

**nobodyさん** · 2018/02/20(火) 05:11:48.16

☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

**nobodyさん** · 2018/06/20(水) 22:23:10.69

プログラミングを誰でも習得できる方法は、「前場アキドルのプログラミングマスター方法」というブログで見られるらしいよ。ネットで調べると見られるらしいです。

9PV1J

**nobodyさん** · 2023/03/10(金) 00:09:48.43

(-｡-)y-ﾟﾟﾟzzz… 　(*_*)y- ｱﾁ!