連想配列の評価

質問

DBより値を読込み、評価しているようですが
前任者がいないので、どう評価しているかわかりません。

--------------------------------------------------
tie(%P3, DB_File, $P3_FILE, O_RDONLY, 0444, $DB_BTREE) || die "$P3_FILE: $!";

if (defined($p3 = $P3{$wd1, $wd2, $wd3})) {
・・・
}
--------------------------------------------------

これは、%P3に
$wd1か$wd2か$wd3が存在したら
それに対応する値を代入してから、処理を行うと
考えていいのでしょうか？

回答No.1

BLUEPIXY · ベストアンサー

$P3{$wd1, $wd2, $wd3}
は、多次元配列をハッシュを用いて表現する古い書き方です。（Perl4で使われていたがPerl5でも使えます）
例えば、
$;=";";#説明の為に可読の文字にしただけで規定値は違います
としたとき
%data=("X;Y;Z", 123);
というハッシュがあれば（つまりキーが"X;Y;Z"、値が１２３ということ）
$data{"X","Y","Z"}というように指定して取り出せます。
なので、$wd1か$wd2か$wd3が存在したら
という意味ではありません。

お礼

連想配列はキーと値が1対1だと思っていました。
キーが複数存在する場合もあるのですね。
ありがとうございました。

回答No.4

BLUEPIXY

実際に、次のようにして試してみるといいです。
$code=ord $;;
printf "１０進：%d,１６進：%X",$code,$code;

お礼

ありがとうございました！
ようやく上手くマッチさせることが出来ました！

回答No.3

BLUEPIXY

#2補足＞実際なんの文字コードになるかご存知ですか？
アスキーコードで0x1C (\034)です

参考URL：

http://www.shibu.jp/cppreference/ascii.html

回答No.2

BLUEPIXY

>連想配列はキーと値が1対1だと思っていました。
>キーが複数存在する場合もあるのですね。
キーは１つです。
{}の中に,で区切った内容については、（$;の値で)
連結して（１つの）キーになるのです。

お礼

なるほど、そういうことですか。
参考になりました。
ありがとうございます。

補足

実は、上記のコードをCに落としているのですが
$;というのがカンマかと勘違いしていました。
これは実際なんの文字コードになるかご存知ですか？