#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "
\n";
print "連想配列のサンプル
\n";
print "
\n";
# 連想配列のデータ定義
%tbl01 = (key01, data01, key02, data02, key03, data03);
# 連想配列の全データを表示
foreach $key (sort keys %tbl01) {
print "$key: $tbl01{$key}
\n";
}
print "
\n";
# 連想配列のデータからキーを検索
$val = data02;
foreach $key (sort keys %tbl01) {
if ($tbl01{$key} eq $val) {
$key_val = $key;
break;
}
}
if ($key_val eq "") {
print "not found\n";
} else {
print "$val -> $key_val\n";
}
print "
\n";
print "このCGIのソース:tbl01.cgi
\n";
print "\n";