Perl/CGIスクリプト卸問屋は創業以来4,572,535,592名のお客様にご愛顧いただいております。

創業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

使い方のようなもの

世界カレンダー？

Sister Projects