七行プログラミング (452ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
365(5): 2006/01/21(土)13:50 ID:??? AAS
#!/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;
368(2): 365 2006/01/22(日)10:02 ID:??? AAS
>>367
仕様変更は34,000円からになっておりますｗ
話の流れがわからない人は2chｽﾚ:tech
>>365はかなりゆとりがあったので7Excelにしてみた。
スタイルシートを別ファイルにしてもいいならまだまだいけそうだ。
#!/usr/bin/perl
@x='A'..'G';@y=1..10;$c='Shift_JIS';use CGI':all';@r=(0)x(@x+1);print header(
-charset=>$c),start_html(-encoding=>$c,-lang=>'ja',-head=>style({-type=>
'text/css'},'table{border-collapse:collapse}input,th{width:50px}td{text-align:
right}td,th{border:1px solid gray}')),start_form,table(Tr(map th($_),'',@x,''),
(map{$i=$_;$s=0;Tr td[$_,(map{$p=param"$i$x[$_]";$s+=$p;$r[$_]+=$p;textfield
"$i$x[$_]"}0..$#x),($r[-1]+=$s,$s)[1]]}@y),Tr td['',@r]),submit,end_form,end_html
369: 365 2006/01/22(日)16:39 ID:??? AAS
use Storable;$f='file';$s=8;$c='Shift_JIS';%p=qw/-1 〇 0 ＿ 1 ●/;@m=map([map 0
,0..$s+2],0..$s+2);($x,$y)=map param($_)%($s+1),qw/x y/;$r=1;use CGI':all';sub
f2{my($w,$y,$x,$c)=@_;$u=1;if(0>$r*$m[$y][$x]){$c++;$m[$y][$x]*=$u=f2($w,$y+$w
->[0],$x+$w->[1],$c)}elsif(0<$c&&0<$r*$m[$y][$x]){$u*=-1}$u}sub r{if($y&&$x&&!
$m[$y][$x]){for(0..7){$i=$_*atan2 1,1;$l=[map int(sprintf'%f',$_*sqrt 2),sin$i,
cos$i];$z++if 0>f2$l,$y+$l->[0],$x+$l->[1]}if($z){$m[$y][$x]=$r;$r*=-1}}}$m[$s/
2+(0<($_&2))][$s/2+(0<($_&1))]=$_%3?1:-1 for 0..3;($r,@m)=@{retrieve$f}if-s$f;r
;store[$r,@m],$f;print header(-charset=>$c),start_html(-encoding=>$c,-lang=>
'ja'),table(Tr[map{$i=$_;td[map a({-href=>"o.cgi?y=$i&x=$_"},$p{$m[$i][$_]}),1
..$s]}1..$s]),$p{$r},end_html;
7オセロ？
o.cgiで保存。
同じディレクトリに記録用ファイルの "file" を作成。
要 Storable.pm (Active Perl なら最初から入っているはず)
リセットは手動で "file" を空にするｗ
7行に収まると思ったけど見込みが甘かった。
370(1): クロエ 2006/01/23(月)02:25 ID:??? AAS
>>365
本当にありがとうございます。設置の仕方が分かりませんorz orz orz
今日６時間くらい、CGIについて解説してあるサイトを隅から隅まで見ましたが、収穫なしですwww
ばかん ばかん 俺のばかん
テキストエディタ？を使うんですか？
372(1): クロエ 2006/01/23(月)16:06 ID:??? AAS
>>365氏
本当にありがとうございます。
2chでこんな優しい人初めてだ。
勉強してきますた。
鯖にアップロードして、パーミッションを755にするだけでおＫですか？
385: 2006/01/25(水)22:08 ID:??? AAS
7CMS
このスレで作った >>365 >>378 >>381 >>384 をモジュール化して一元管理する。
サードパーティー製品でもCGI.pmを使ったものなら大丈夫かも。
>>137 >>274 は一応動いた。
使い方は全部同じディレクトリに入れればいいだけだから。
use CGI':all';$d=param '*';@r=[$0=~/([^\\\/]+)$/,'START'];$p=$`;for$n(<*>){if($r
[0][0]ne$n&&$n=~/\.cgi$/){$r='';chdir$p;open F,$n;read F,$c,-s F;tie*G=*STDOUT,
'main';eval"package C$`;$c";untie*G;$r=~s/^.+?(\r?\n){2}//s;$r=~s/(<a\s.*?\?)(.
*?>)/$1*=$d&$2/gisx;$r=~s!(?=</for)!hidden -name,'*',-value,$d!egi;push@r,[
$n,$r.$@]}}AUTOLOAD{ref(shift)?($r.=join'',@_):bless[]}charset '';put header,
table Tr td{style=>'vertical-align:top;text-align:left;border:1px solid gray'},
[ul(li[map a({href,"?*=$_"},$d==$_?b($r[$_][0]):$r[$_][0]),0..$#r]),$r[$d][1]]
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.025s