創業132年を誇る超老舗のPerl/CGIスクリプト卸問屋へようこそ。当店では最先端技術を駆使して作成したスクリプトを格安のパッケージにして販売するかもしれませんが現在は産地直送のため時価です。当社が持てる技術の粋を集めた7行シリーズをよろしく!(結構適当なのは内緒)
#!/usr/local/bin/perl $m=128;@s=('',qw/┐ ─ │ ├ ┘/);use CGI':all';$p=param('p')%($m+1);1 while +( $n=2**$e++)<$p;@l1=(2)x($n-$p);$t=-1;push@l1,$t*=-1 while@l1<$p;push@m0,$l1[$_] ,$l1[$_]==1?4:0 for 0..$p-1;pop@m0;@m=\@m0;for($i=0;@m<$e-1;$i++){$t=1;for(0.. $#{$m[$i]}){if($m[$i][$_]&&!($m[$i][$_]%2)){$m[$i+1][$_]=$t;$m[$i+1][$s+($_-$s) /2]=4 if$t<0;$s=$_;$t*=-1}elsif($t<0){$m[$i+1][$_]=3}else{$m[$i+1][$_]=0}}} charset '';put header,startform,textfield(-name=>'p'),submit("1-$m"),table(Tr[ map{$i=$_;td[$i%2?'':$i/2+1,map$s[$m[$_][$i]],0..$#m]}0..$#{$m[0]}]),endform
©2018 Perl/CGIスクリプト卸問屋