データベースから必要な情報を取出す

　初歩から始める初心者向けPerl-CGI講座　■　


	`CGI`の設置方法
	フリーで配布されている`CGI`を設置する際の手順や注意事項などの説明です。

	`CGI`作成の初歩
	初めて`CGI`を作る方向けの手順を簡単な例で説明しています。

	`CGI`作成ヒント集
	こういう事をする時は、どのように行えばいいのか？など具体的な事例を紹介します。

	`CGI`の設置に関する用語
	`CGI`の作成に関する用語
	`CGI`の設置や作成時に使われている用語や関連知識を掲載しています。

	設置に関するFAQ
	作成に関するFAQ
	設置や作成をする際に起こりがちなトラブルの説明と、よくある質問とその回答を掲載しています。

データベースから必要な情報を取出す

キーワードで検索し、マッチしたデータを取出せるような仕組みを作ってみます。

今度は送信される内容が少ないので GETメソッドを使って内容を送信しています。
GETメソッドで送信したデータは環境変数 $ENV{'QUERY_STRING'} に入っています
ので、それを要素ごとに分解し、連想配列に入れて使います。

このサンプルソースでは、上記フォームから何らかのキーワードを入れて検索すると、 test.txt というファイルを
読み込み、それぞれの行で検索語にマッチしたデータかどうか判断し、その都度表示します。
ファイルの最後まで行い、最下部に検索でキーワードにマッチした件数を表示して終了します。

#!/usr/local/bin/perl

#フォームからデータを受け取り変数へ入れる
#GETメソッドの場合は QUERY_STRING から受け取る
$formin = $ENV{'QUERY_STRING'};

# + 記号を半角スペースに戻す
$formin =~ tr/+/ /;

#URLエンコードデータをデコード
$formin =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

@indata = split (/&/,$formin); #受け取ったデータを＆で区切り、配列へ

foreach $tmp (@indata) #フォームの要素分（配列分）以下の処理を繰り返す
{
	($name,$value) = split (/=/,$tmp); # =記号で区切り、名前 と 値 に分ける
	$forminh{$name} = $value; #区切った名前を付けた連想配列に値を入れる
}

#既存ファイルを読み込み、配列@aaa に入れる
open (IN,"test.txt");
@aaa = <IN>;
close (IN);

#ヘッダを出力する
print "Content-type: text/html\n\n";
print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">";

if ($forminh{'keywd'} eq "") #検索キーワードが空の場合のメッセージ
{
	print "<HR>検索キーワードが入力されていません<HR>";
}
else #検索キーワードが有る場合の上部メッセージ
{
	print "<HR>$forminh{'keywd'} で検索した結果<HR>";
}

$count = 0; #ヒット件数カウント用の変数を初期化する
foreach $youso (@aaa)
{
	if ($youso =~ /$forminh{'keywd'}/i) #マッチしたら以下の処理を実行
	{
		($view1,$view2,$view3,$view4,$view5) = split (/,/,$youso);
		print " お名前： $view1 ";
		print "E-Mail： $view2 ";
		print "郵便番号： $view3 ";
		print "住所：  $view4 ";
		print "備考： $view5";
		print " -------------------------------";
		$count++;
	}
}

if ($count == 0) #カウンタが 0の場合はマッチしなかった為、メッセージ出力する
{
	print "キーワードにマッチするデータはありませんでした。";
}
else #それ以外はマッチしているので、件数を表示する
{	
	print " <HR>$count件のデータがマッチしました。<HR>";
}

exit;

記録ファイルを配列に入れ foreach関数で繰り返し、マッチするデータを順次表示しています。
これでは全てを表示してしまうので、ある程度の件数で区切ると良いです。

実際には記録ファイルが大きくなると、その全てを探すので効率が悪く、負荷が高くなりますが、
１件当りのデータ容量が少なければ、数百件程度であれば快適に検索できます。
大量のデータを扱う時はインデックス方式と呼ばれる、記録ファイルから抽出したキーワードを
格納するインデックスファイルを先に生成し、そこから検索する方法が優れているようです。

下の参考リンクで優れた検索エンジンがありますので、それらも参考にして下さい。

【参考リンク】
・ホームページ内全文検索エンジン msearch 「比較的簡単に設置できて高速です」
・全文検索システム　Namazu 「設置できる環境であれば少し難しいですがお薦めです」

関連項目

・　CGIの作成に関する用語
・　CGI作成に関するFAQ