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

創業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.81.76.247, 10.0.0.4
HTTP_X_VARNISH 1097549
PATH /usr/local/bin:/usr/bin:/bin
QUERY_STRING d=2415919104&source=project/7lines/upload.cgi
REMOTE_ADDR 54.81.76.247
REMOTE_PORT 23030
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 W05dOAoAAAgAAKjyVfEAAABX
@INC (キャッシュ更新中は激重になります)
適当に動かしてみる
ダウンロードとか
  1. ソース ダウンロード project/2ch/test/read.cgi
  2. ソース ダウンロード project/7lines/Storable.pm
  3. ソース ダウンロード project/7lines/_cms.cgi
  4. ソース ダウンロード project/7lines/analysis.cgi
  5. ソース ダウンロード project/7lines/calendar.cgi
  6. ソース ダウンロード project/7lines/counter.cgi
  7. ソース ダウンロード project/7lines/csv.cgi
  8. ソース ダウンロード project/7lines/excel.cgi
  9. ソース ダウンロード project/7lines/gc.cgi
  10. ソース ダウンロード project/7lines/hinomaru.cgi
  11. ソース ダウンロード project/7lines/http.cgi
  12. ソース ダウンロード project/7lines/httpd.pl
  13. ソース ダウンロード project/7lines/mail.cgi
  14. ソース ダウンロード project/7lines/navi.cgi
  15. ソース ダウンロード project/7lines/o.cgi
  16. ソース ダウンロード project/7lines/reverse.cgi
  17. ソース ダウンロード project/7lines/sum.cgi
  18. ソース ダウンロード project/7lines/tournament.cgi
  19. いらない ダウンロード 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;
  20. ソース ダウンロード project/aabb.cgi
  21. ソース ダウンロード project/diary.cgi
  22. ソース ダウンロード project/download.cgi
  23. ソース ダウンロード project/explorer.cgi
  24. ソース ダウンロード project/gallery.cgi
  25. ソース ダウンロード project/mailer.cgi
  26. ソース ダウンロード project/message.cgi
  27. ソース ダウンロード project/mod_chat.cgi
  28. ソース ダウンロード project/research.cgi
  29. ソース ダウンロード project/rss.cgi
使い方のようなもの
世界カレンダー?
Sister Projects

©2018 Perl/CGIスクリプト卸問屋