[perl] ロリポップサーバーのperlモジュール一覧

▶ in perl posted 2010.02.17 Wednesday / 22:45

当ウェブサイトは、ロリポップサーバーを使用しています。
perlでスクリプトを作成するのに必要になってくるモジュールがサーバーにインストールされているか調査するのにfutomi's CGI Cafeのサーバーアナライザーを使ってみました。
以下、必要な情報のみ抜粋しています。
続きを読む>>

[perl] CGI.pmを使ってURLから文字列を取得

▶ in perl posted 2010.02.11 Thursday / 00:01

perlを勉強中のため、覚書です。

beginners CGI - CGI に引数を付けて値を渡す -
futomi's CGI cafe - CGI.pm を使ってみよう -

上記の記事を参考にテストスクリプトを作成してみました。
ソースは以下の通りです。
#!/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;


上記のスクリプトに引数を付けて実行すると、それぞれの値を画面上に表示されます。
URLに続けて ? を入力、その後 要素=値 とし、それぞれの要素を & で区切ります。

【例】
http://api.aizack.net/gq_test.cgi?要素1=値2&要素2=値2&要素3=値3


テストスクリプト
http://api.aizack.net/gq_test.cgi?pref=hokkaido&data=10
PAGE TOP