请教PERL hash 匹配

枫影谁用了

my $sth = $dbh->prepare("select id,name from key "); $sth->execute(); #while (my $hash_ref = $sth->fetchrow_hashref) { #$key_id                =       $hash_ref->{'id'}; #$key_name      =       $hash_ref->{'name'}; #} our $array_key  = $sth->fetchall_arrayref;

现有值$id=30

需要从$array_key取出id对应的name,请教能否给个例子？

新学生，问的问题好像不是问题^_^ 谢谢

枫影谁用了

my %key_hash; while (my $hash_ref = $sth->fetchrow_hashref) {         $id         =       $hash_ref->{'id'};         $name       =       $hash_ref->{'name'};         $key_hash{$id}=$name; #hash数组 } print $key_hash{"30"};

谢谢。解决了。
但是如果有多列呢？
$key_hash{$id}=$name;
print $key_hash{"30"};这样取出name

那如果有多列呢？比如有id name city sex

我想用id取出name ,或id取出city ，或用name取出sex。

[ 本帖最后由 枫影谁用了 于 2009-1-6 11:00 编辑 ]

cobrawgl

你用 Dumper 把 $array_key 里的东西 dump 出来，看一看就知道怎么取了

枫影谁用了

原帖由 cobrawgl 于 2009-1-6 10:50 发表
你用 Dumper 把 $array_key 里的东西 dump 出来，看一看就知道怎么取了

太高深了。我得查资料半天。^_^

枫影谁用了

原帖由 枫影谁用了 于 2009-1-6 10:49 发表
my %key_hash;

while (my $hash_ref = $sth->fetchrow_hashref) {
        $id         =       $hash_ref->{'id'};
        $name       =       $hash_ref->{'name'};
        $key_hash{$id}=$name; # ...

原来可以建立多个数组！不晓得会不会浪费内存。

$key_hash1{$id}=$name;
$key_hash2{$id}=$city;
$key_hash3{$name}=$sex;

MMMIX

原帖由 枫影谁用了 于 2009-1-6 11:15 发表


原来可以建立多个数组！不晓得会不会浪费内存。

$key_hash1{$id}=$name;
$key_hash2{$id}=$city;
$key_hash3{$name}=$sex;

在这种情况下 Perl 有一些优化，例如共享 %key_hash1 和 %key_hash2 中相同的 $id