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

創業134年を誇る超老舗の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_ACCEPT_LANGUAGE	en-US,en;q=0.5
HTTP_HOST	tonya.usamimi.info
HTTP_USER_AGENT	CCBot/2.0 (https://commoncrawl.org/faq/)
HTTP_X_FORWARDED_FOR	18.204.227.117, 10.0.0.4
HTTP_X_VARNISH	58438921
PATH	/usr/local/bin:/usr/bin:/bin
QUERY_STRING	d=2415919104&source=project/7lines/upload.cgi
REMOTE_ADDR	18.204.227.117
REMOTE_PORT	38403
REQUEST_METHOD	GET
REQUEST_URI	/cgi-bin/index.cgi?d=2415919104&source=project/7lines/upload.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	XtmqbAoAAAgAANe-BbcAAABo

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

適当に動かしてみる

ダウンロードとか

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

#!/usr/local/bin/perl

$f=5;$n=30;$d='./u';$p='\w{1,64}\.(jpg|gif|png|zip)';$s=2**20;$m=0604;use CGI
':all';if(chdir$d){$t=time;for(1..$f){if(($g=param($l="file$_"))&&-s$g&&-s _<$s
&&open F,">./${t}_${_}_".($g=~/($p)$/?$1:'unknown.txt')){binmode F;print F <$g>
;close F;chmod$m}push@l,filefield -name,$l}unlink grep!/^\d/||($i++<$n?do{push
@r,[stat,$_];()}:$_),@f=reverse<*>}charset '';put header,start_multipart_form,
ul(li[@l,submit]),endform,pre join"\n",map{sprintf"%04o | %12d | %s | %s",07777
& $_->[2],$_->[7],scalar(localtime$_->[9]),a{href=>"$d/$_->[-1]"},$_->[-1]}@r;

使い方のようなもの

世界カレンダー？

Sister Projects