怎么在Hash中放一个数组呢？

BosCourage

问一个Perl的问题
怎么在Hash中放一个数组呢？
谢谢阿

fireatme

my @fruits = ("apple", "orange", "banana");
my %hash = (fruit => \@fruits);

兰花仙子

原帖由 BosCourage 于 2006-7-17 19:33 发表
问一个Perl的问题
怎么在Hash中放一个数组呢？
谢谢阿

数组的引用，或者一个匿名数组，都可以作为hash的value（但不能是key）。

%hash = ( key => \@array );
or:
%hash = ( key => [ ... ]  );

vio

原帖由 兰花仙子 于 2006-7-17 20:37 发表


数组的引用，或者一个匿名数组，都可以作为hash的value（但不能是key）。

%hash = ( key => \@array );
or:
%hash = ( key => [ ... ]  );

我也想知道一下，例如下面两个方法，是不是一样的：

1. $hash = ["1","2","3"];

复制代码

等于？

1. @test = ("1","2","3");
   
2. %hash = [@test];#it should be: $hash = \@test;
   

复制代码

[ 本帖最后由 vio 于 2006-7-19 16:05 编辑 ]

兰花仙子

这2种方法作用一样。但第2种显然低效一些，因为它拷贝了一个数组。

另外：%hash = [@test];  没有这种写法。

ulmer

原帖由 vio 于 2006-7-17 22:00 发表


我也想知道一下，例如下面两个方法，是不是一样的：

1. $hash = ["1","2","3"];

复制代码

Hallo,

using right variable name in English is good behavious for programmer:-)
remind:
[.....] is anonymous reference to array!
{....} is anonymous reference to hash!
so.
$aref = ["1","2","3"];    # dereference: @$aref
$href = {k1=>"1", k2=>"2"};  # deref.: %$href

Best,
    ulmer

--------
Tips:
perldoc perlreftut | perldoc perldsc | perldoc perllol

[ 本帖最后由 ulmer 于 2006-7-18 02:52 编辑 ]

vio

原帖由 ulmer 于 2006-7-18 02:46 发表


Hallo,

using right variable name in English is good behavious for programmer:-)
remind:
[.....] is anonymous reference to array!
{....} is anonymous reference to hash!
so.
$aref = [&qu ...

Thanks a lot for your kind reply.

原帖由 兰花仙子 于 2006-7-17 22:08 发表
这2种方法作用一样。但第2种显然低效一些，因为它拷贝了一个数组。

另外：%hash = [@test];  没有这种写法。

谢谢！
我对hash及数组引用理解的都还不好，
所以一直在练习，

对 %hash = [@test]这种用法我也觉得怪怪的:),
不过运行时好像没有问题-_-!!

例如有很多类似下面的数据，

#FILE：
aa           215 6690        232 3760        231 8680        2598 560        228 8500        2487 480       
bb           232 3760        231 8680        259 8560        2288 500        248 7480        2413 550
cc            232 3760        231 8680        259 8560        2288 500        248 7480        2413 550
...
#end#

想将他们放到类似 $aa = ["234","567",..]的数组中：
所以我这样：

1. 
   
2. open IN,"FILE" or die $!;
   
3. 
   
4. while (<IN>) {
   
5.           chomp;
   
6.           my @test = split / |\t/, $_;
   
7.           my $name = shift @test;
   
8.           my $name = [@test]; # had never seen the code like this before, -0-！:)
   
9. ....
   
10. }
    

复制代码

$name = [@test]
是不是等于$name = $@test?

anyway, 我还得好好复习书本

[ 本帖最后由 vio 于 2006-7-18 10:54 编辑 ]

huaxue

我想知道这个hash的key和value的对应关系是什么呢？
my @fruits = ("apple", "orange", "banana");
my %hash = (fruit => \@fruits);

谢谢！

ulmer

原帖由 huaxue 于 2006-7-18 15:03 发表
我想知道这个hash的key和value的对应关系是什么呢？
my @fruits = ("apple", "orange", "banana");
my %hash = (fruit => \@fruits);

谢谢！

Hi,

this is also called hashs of arrays
key is scalar and value is reference to array
%hash = ( fruit => ["apple", "orange", "banana"] );   # [] is used!
to call banana:
print $hash{fruit}->[2];

Best,
    ulmer

兰花仙子

while (<IN>) {
          chomp;
          my @test = split / |\t/, $_;
          my $name = shift @test;
          my $name = [@test]; # had never seen the code like this before, -0-！:)
....
}

my @test = split / |\t/, $_; 这样写有点冗余，直接 my @test = split;即可。
my $name = shift @test;   这表示数组的第一个元素弹出来赋值给$name。
my $name = [@test];   这表示从@test复制出一个匿名数组，并赋值给$name。

偶没看明白你想做what，该回家看看书呢。