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

vio

原帖由 兰花仙子 于 2006-7-18 19:55 发表



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

谢谢，
确实要好好复习课本才行。

vio

原帖由 兰花仙子 于 2006-7-18 19:55 发表



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

sorry for my ugly code.

数据：
aa 22 33 44 55
bb 66 77 88 99
..

# 想负值为 $aa = ["22","33","44","55"];
#              $bb = ["66","77","88","99"];
#..

应该可以这样:
open IN,"FILE" or die $!;

while (<IN>) {
        my @test = split;
        my $name = shift @test;
        $$name = \@test;
        ...
#    print $$$name[0];
}

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

ulmer

原帖由 vio 于 2006-7-19 17:03 发表


sorry for my ugly code.

数据：
aa 22 33 44 55
bb 66 77 88 99
..

# 想负值为 $aa = ["22","33","44","55"];
#              $bb = ["66",& ...

tips:

1. 
   
2. perl -MData::Dumper -le '$l="aa 22 33 44 55"; (${$x}, @a)=split(/\s/, $l); $aa=\@a; print Dumper($aa);'
   
3. $VAR1 = [
   
4.           '22',
   
5.           '33',
   
6.           '44',
   
7.           '55'
   
8.         ];
   

复制代码

vio

原帖由 ulmer 于 2006-7-19 17:39 发表


tips:
[code]
perl -MData:umper -le '$l="aa 22 33 44 55"; (${$x}, @a)=split(/\s/, $l); $aa=\@a; print Dumper($aa);'
$VAR1 = [
          '22',
          '33',
          '44',
  ...

Thanks so much!
perfect and fantastic!

vio

原帖由 ulmer 于 2006-7-19 17:39 发表


tips:
[code]
perl -MData::Dumper -le '$l="aa 22 33 44 55"; (${$x}, @a)=split(/\s/, $l); $aa=\@a; print Dumper($aa);'
$VAR1 = [
          '22',
          '33',
          '44',
  ...

why use ${$x} in here ?

ulmer

原帖由 vio 于 2006-7-19 17:49 发表

why use ${$x} in here ?

as you want: dynamical variable name (not value but name!!!), such as $aa, $bb.

1. 
   
2. $girl = 'MM';
   
3. ${$girl} = 'Lin Dai-Yu';
   
4. print "I don't like ", $MM, "\n";
   

复制代码

Best,
    ulmer
--------------
Just 4 Fun

vio

原帖由 ulmer 于 2006-7-19 18:06 发表


as you want: dynamical variable name (not value but name!!!), such as $aa, $bb.

1. 
   
2. $girl = 'MM';
   
3. ${$girl} = 'Lin Dai-Yu';
   
4. print "I don't like ", $MM, "\n";
   

复制代码

...

Thank you.
Got it.

But I think I like Lin Dai-Yu,.

Thanks a lot again!

兰花仙子

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


Thank you.
Got it.

But I think I like Lin Dai-Yu,.

Thanks a lot again!

林黛玉太柔弱啦。中国女孩我喜欢看Twins类型的，西方的偶喜欢Jennifer Garner.

vio

原帖由 兰花仙子 于 2006-7-19 23:45 发表


林黛玉太柔弱啦。中国女孩我喜欢看Twins类型的，西方的偶喜欢Jennifer Garner.

老实说我连红楼梦都没看完过
--电视剧更不用说了，倒胃口
我只是看过其中的一些诗词，包括Lin的
很喜欢

Jennifer Garner也是我喜欢的

呵呵