如何用一个变量值命名一个hash的array？

gunguymadman

如何以一个变量的值来命名hash的array？

一梦如是

你是想用变量的值做哈希的值？还是做哈希的键？
前者就直接存就行了，后者请见http://bbs.chinaunix.net/forum/25/20041213/465273.html
斑竹的回答

gunguymadman

呵呵  
我的本意不是这样的   
我想要的是用一个循环中的变量的值来命名每次生成的新数组 （ 变量值是作为新数组的名字 ）  
例如 $one="aaa"; 则生成一个@aaa=();
到下一个循环了 ，此时$one编程“bbb",则再生成一个@bbb=[],（数组的元素是hash，这是后话，跟现在的问题没什么关系 ）。
我现在生成不了对应于变量值的数组  ？? who知道如何实现？

gunguymadman

解决了   但不严格

deathcult

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use Data::Dumper;
   
5. 
   
6. 
   
7. my $h;
   
8. $h->;{'a'} = "1";
   
9. $h->;{'b'} = "2";
   
10. 
    
11. print Dumper($h);
    

复制代码

一梦如是

1. 
   
2. #!/bin/perl -w
   
3. use strict;
   
4. no strict 'refs';
   
5. my $a="aaa";
   
6. @{"$a"}=qw(1 2 3);
   
7. print @{"$a"};
   

复制代码

或

1. 
   
2. #!/bin/perl -w
   
3. #use strict;
   
4. my $a="aaa";
   
5. open (F,">;tmp");
   
6. @{print F $a}=qw(1 2 3);
   
7. print @{print F $a};
   
8. close F;
   
9. unlink 'tmp';
   

复制代码

一梦如是

sorry,两个程序都有问题，在程序尾加上

1. 
   
2. print @aaa;
   

复制代码

后，就会发现@aaa没有被定义~
但是谁能帮我解释下，我的程序里列表值被存储到哪里去了？程序是怎么解释的？
而且为什么@{print F $a}=qw(1 2 3); @{"$a"}=qw(1 2 3);两句都不报错？

gunguymadman

1. #!/usr/bin/perl
   
2. 
   
3. #use strict;
   
4. no strict 'refs';
   
5. my $b="array";
   
6. 
   
7. push @{$b},{"1"=>;"aaaaaaa"};
   
8. push @{$b},{"2"=>;"sssssssss"};
   
9. 
   
10. print ${$b}[0]->;{1},"\n";
    
11. print $array[1]->;{2},"\n";
    

复制代码

gunguymadman

呵呵  dumper可以解决

一梦如是

刚才是我想错了，我觉得这样更好些~

1. 
   
2. #!/bin/perl
   
3. #use strict;
   
4. no strict 'refs';
   
5. my $a="array";
   
6. *{$a}=[1,2,3];
   
7. print @array;
   

复制代码