perlでスクリプトを作成するのに必要になってくるモジュールがサーバーにインストールされているか調査するのにfutomi's CGI Cafeのサーバーアナライザーを使ってみました。
以下、必要な情報のみ抜粋しています。
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $q = new CGI;
my $param = $ENV{'QUERY_STRING'};
my @param = split (/&/,$param);
print $q->header(-charset=>"shift-jis");
print $q->start_html(-title=>"Aizack Lab", -BGCOLOR=>'#ffffff'),
$q->center($q->h1('[perl] クエリ文字列取得サンプル')),
$q->hr,
$q->br,
$q->br,
$q->strong("取得したクエリ文字列"),
$q->br,
$q->br;
foreach my $tmp (@param)
{
my ($name,$value) = split (/=/,$tmp);
print $q->strong("名前:$name 値:$value"),
$q->br;
}
print $q->end_html;
exit;
use Digest::SHA::PurePerl qw(hmac_sha256_base64);
$pkv{"Service"} = "AWSECommerceService";
$pkv{"AWSAccessKeyId"} = "Your AccessKey";
$pkv{"AssociateTag"} = "Your AssociateID";
| limecounter |
|---|
| limecounter_list | 集計一覧を表示する。 |
|---|---|
| limecounter_css | コンテンツ用のCSSをリンクタグごと表示する。(<head>タグ内へ挿入。) |
| readme.txt | 説明書 |
|---|---|
| lime.cgi | ダウンロードカウンタを処理するcgiスクリプト |
| plugin/limecounter.pm | プラグインファイル |
| plugin/resource/ja/limecounter.txt | 管理画面表示用日本語リソースファイル |
| plugin/resource/ja/limecounter.html | 管理画面用ファイル |
| data/lime/lime.log | ダウンロード情報を保存するインデックスファイル |
| plugin/ ディレクトリ内 (パーミッション例 : 644) | limecounter.pm |
|---|---|
| plugin/resource/ja/ ディレクトリ内 (パーミッション例: 644) | limecounter.html |
| limecounter.txt | |
| data/lime/ ディレクトリ内 (パーミッション例: 666) | lime.log |
| limeディレクトリとlime.logファイルは、設定項目から変更可能。 | |
| data/lime/ ディレクトリ内 (パーミッション例: 644) | index.html |
| Serene Bach 設置ディレクトリ (パーミッション例 : 755) | lime.cgi |
| lime.cgi は sb.cgi/admin.cgi と同じディレクトリに同じパーミッションで置いて下さい。 |
<head>
<!-- BEGIN limecounter -->
{limecounter_css}
<!-- END limecounter -->
</head>
<body>
<!-- BEGIN limecounter -->
{limecounter_list}
<!-- END limecounter -->
</body>

尚、下記の利用規定も読んでください。
オリジナルCGIスクリプト利用規定
use URI;
$new = URI->new_abs('../download','http://aizack.net/lab/');
use URI;
$new = URI->new_abs('../download','http://lab.aizack.net/');