请教，关于取一个子程序的返回值

condor_P

我写了一个A模块
里面定义了一个search子程序。功能是查找数据库，然后把数据库里的一条记录保存到一个HASH里。
如：$hash{'url'}，$hash{'host'}，$hash{'file'}等。再把这个HASH存到一个数组里。
use A;
my $a = new A;
$a->search();
这样可以进行查询。我的问题是，在另一个程序里怎样取这个数组里每个元素（HASH）的每个值？

兰花仙子

如果在该包里hash变量申明为词法范围的变量的话，那么其他包无法访问。

condor_P

我的意思就是
我有一个子函数，它是在一个模块里写的。如A模块。
函数的功能就是搜索数据库的一条记录。一条记录包括，IP，PORT，FILENAME。
然后把这3个存到HASH里。
        while (my @row = $sth->fetchrow_array){
                my %hash;
                $hash{'host'} = $row[0];
                $hash{'port'} = $row[1];
然后放进一个数组里：
                push(@array,%hash);
最后返回这个数组
                return @array;
整个子函数结束。
我要使用这个函数，首先应该：
use A;
my $a = new A;
$a->search();
我想问。我怎样写能取得@array里的每个元素（一个HASH）的每个值，如
我想取$array[0]{host}.
在另一个.pl文件中应该怎么写？

兰花仙子

原帖由 condor_P 于 2006-6-15 10:37 发表
我的意思就是
我有一个子函数，它是在一个模块里写的。如A模块。
函数的功能就是搜索数据库的一条记录。一条记录包括，IP，PORT，FILENAME。
然后把这3个存到HASH里。
        while (my @row = $sth->fet ...

$ cat A.pm
package A;

use strict;
sub search
{
     my %hash=('abc'=>111,'def'=>222,);
     my @array;
     push @array,\%hash;
  
     return \@array;
}

sub new
{
    my $class =shift;
    bless {}, $class;
}


1;
$ perl -Mstrict -le 'use A;my $obj=A->new;my $ref=$obj->search;print $ref->[0]->{abc}'
111

condor_P

感谢 仙子