Perl - CPAN - Tie::IxHashパッケージ

Zaurus

ここに掲載するものは、塚本さんにパッケージ化して頂いているZaurus用Perl 5.6.1に追加でインストールするPerlライブラリのTie::IxHashである。
ソースはここからダウンロードし、dev-img-1.3でセルフコンパイルした。
セルフコンパイルとは言っても、実際にはPerlスクリプトだけでできている。

download：lib-perl-tie-ixhash_1.21-1_arm.ipk

手始めの使い方は以下の通りである。

use Tie::IxHash;
print "----<before using Tie::IxHash below>----\n";
%hash = (
       hoge => "1",
       hage => "2",
       huge => "3",
);
foreach $key (keys(%hash)) {
       print $key, "=>", $hash{$key}, "\n";
}
print "----<after using Tie::IxHash below>----\n";
# tieをすると%hashはクリアされる
tie %hash, Tie::IxHash;
%hash = (
       hoge => "1",
       hage => "2",
       huge => "3",
);
foreach $key (keys(%hash)) {
       print $key, "=>", $hash{$key}, "\n";
}
# untieをすると%hashは元に戻る
untie %hash;

Tie::IxHashの詳細は以下をご覧頂きたい。

英語：http://search.cpan.org/~gsar/Tie-IxHash-1.21/lib/Tie/IxHash.pm
日本語：http://katsubemakito.net/cgiperl/variable/hash/post-46.html