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

創業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.99
HTTP_X_VARNISH 1515713
PATH /usr/local/bin:/usr/bin:/bin
QUERY_STRING d=2415919104&source=project/gallery.cgi
REMOTE_ADDR 54.81.76.247
REMOTE_PORT 26894
REQUEST_METHOD GET
REQUEST_URI /cgi-bin/index.cgi?d=2415919104&source=project/gallery.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 W05dgwoAAAgAAKjyVl4AAABa
@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
  20. ソース ダウンロード project/aabb.cgi
  21. ソース ダウンロード project/diary.cgi
  22. ソース ダウンロード project/download.cgi
  23. ソース ダウンロード project/explorer.cgi
  24. いらない ダウンロード project/gallery.cgi
    #!/usr/local/bin/perl
    
    my $num = 5;
    my %dir = (
        'storage1' => ['倉庫1', 'eenie',     '99', '.jpg'],
        'storage2' => ['倉庫2', 'meenie',   '999', '.gif'],
        'storage3' => ['倉庫3', 'minie',   '9999', '.png'],
        'storage4' => ['倉庫4', 'moe',    '00009', '.bmp'],
    #    'ディレクトリ名' => ['ディレクトリのタイトル', 'ファイルの接頭語', '連番の最大番号', '拡張子'],
    );
    my @colors = ('blue', 'green');
    
    #設定はここまでだから勘で設定♪して
    
    if ($ENV{'QUERY_STRING'} eq 'kita-' && open FH, __FILE__) {
        read FH, my $source, -s FH;
        close FH;
        print "Content-Type: text/plain\n\n$source";
        exit;
    }
    
    my @dir = sort keys %dir;
    my ($myself) = __FILE__ =~ /([^\\\/]+)$/;
    my %in = $ENV{'QUERY_STRING'} =~ /^dir=(\w{1,256})&no=(-?\d{1,8})$/ && exists $dir{$1}
        ? (dir => $1, no => $2 % $dir{$1}[2]) : (dir => $dir[0], no => 0);
    $in{'no'} = 0 unless int $in{'no'} / $num;
    my $pad = length $dir{$in{'dir'}}[2];
    my $html = '<html><head><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"><title>iギャラリー</title></head><body>';
    $html .= qq{<p><a href="$myself?dir=$in{'dir'}&amp;no=${\($in{'no'} - $num)}">前へ</a> <a href="$myself?dir=$in{'dir'}&amp;no=${\($in{'no'} + $num)}">次へ</a></p>};
    $html .= '<p>' . join(' ', map qq{<a href="$myself?dir=$_&amp;no=0"><font color="$colors[$_ eq $in{'dir'}]">$dir{$_}[0]</font></a>}, @dir) . '</p>';
    $html .= join ' ',
        map sprintf(qq{<img src="%s/%s%0${pad}d%s" alt="%s%0${pad}d%s">}, $in{'dir'}, ($dir{$in{'dir'}}[1], $_, $dir{$in{'dir'}}[3]) x 2),
            (1 + $in{'no'})..($dir{$in{'dir'}}[2] < $in{'no'} + $num ? $dir{$in{'dir'}}[2] : $in{'no'} + $num);
    $html .= qq{<p><a href="$myself">最初へ</a></p>};
    $html .= '</body></html>';
    print 'Content-Length: ', length $html, "\n";
    print "Content-Type: text/html\n\n";
    print $html;
  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スクリプト卸問屋