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

創業132年を誇る超老舗のPerl/CGIスクリプト卸問屋へようこそ。当店では最先端技術を駆使して作成したスクリプトを格安のパッケージにして販売するかもしれませんが現在は産地直送のため時価です。当社が持てる技術の粋を集めた7行シリーズをよろしく！(結構適当なのは内緒)

%ENV

DOCUMENT_ROOT	/home/tonya/public_html/
GATEWAY_INTERFACE	CGI/1.1
HTTP_ACCEPT	text/html,application/xhtml+xml,application/xml;q=0.9,/;q=0.8
HTTP_ACCEPT_ENCODING	gzip
HTTP_HOST	tonya.usamimi.info
HTTP_USER_AGENT	CCBot/2.0 (http://commoncrawl.org/faq/)
HTTP_X_FORWARDED_FOR	54.196.38.114, 10.0.0.99
HTTP_X_VARNISH	1968621
PATH	/usr/local/bin:/usr/bin:/bin
QUERY_STRING	d=2415919104&source=project/7lines/navi.cgi
REMOTE_ADDR	54.196.38.114
REMOTE_PORT	30718
REQUEST_METHOD	GET
REQUEST_URI	/cgi-bin/index.cgi?d=2415919104&source=project/7lines/navi.cgi
SCRIPT_FILENAME	/home/tonya/public_html/cgi-bin/index.cgi
SCRIPT_NAME	/cgi-bin/index.cgi
SERVER_ADDR	10.0.0.8
SERVER_ADMIN	tonya@usamimi.info
SERVER_NAME	tonya.usamimi.info
SERVER_PORT	80
SERVER_PROTOCOL	HTTP/1.1
SERVER_SIGNATURE	<address>Apache Server at tonya.usamimi.info Port 80</address>
SERVER_SOFTWARE	Apache
UNIQUE_ID	W1IllQoAAAgAAOl0bg4AAABo

@INC (キャッシュ更新中は激重になります)

適当に動かしてみる

ダウンロードとか

いらないダウンロード project/7lines/navi.cgi

#!/usr/local/bin/perl

$d='./';$e='s?html?';$n=10;@l=(['prev',-1],['next',1]);use CGI':all';sub r{my(
$d,$e)=@_;map{if(-d){r($_,$e)}elsif(/\.$e$/&&$p<=$c++&&$c<=$p+$n&&open F,$_){-B
||read F,$h,2**16;close F;$h=~/>\s*([^<>]*?)\s*<\/ti/is;[$_,$1||$_]}else{()}}
<$d/*>}$p+=param 'p';($d)=$d=~/(.+?)[\\\/]*$/;@r=r$d,$e;if($p<0){$p=$c-$c%$n;$c
=0;@r=r$d,$e}elsif(!@r){$p=0;$c=0;@r=r$d,$e}charset '';put header,dl dt(map a({
href=>"?p=".($p+$n*$_->[1])},$_->[0]),@l),dd{style=>'margin:0px'},join"\n",ol({
start=>1+$p},li[map a({href=>$_->[0]},$_->[1]),@r]),p"$c files"

使い方のようなもの

世界カレンダー？

Sister Projects