地址传递的问题

HawaiiLeo

#!/usr/bin/perl

use strict;
use warnings;

my $name = &_get_names();
my $tel = &_get_tels();
my %tel = %$tel;              #########不定义中间变量，直接%$tel{'wang'}是不行的。不过数组可以啊。

foreach(@$name)
{
  print "$tel{$_}\n";
}

sub _get_names
{
  my @names = ('zhang', 'wang', 'li');
  return \@names;
}

sub _get_tels
{
  my %tels = ('zhang'=>'000000', 'wang'=>'111111', 'li'=>'222222');
  return \%tels;
}

ynchnluiti

原帖由 HawaiiLeo 于 2009-1-14 10:32 发表
my $tel = &_get_tels();
my %tel = %$tel;              #########不定义中间变量，直接%$tel{'wang'}是不行的。不过数组可以啊。

$tel是hash引用，%$tel{'wang'}是对解引用后得到的整个散列取键值为wang的元素，是语法错误。

1. %hash = (wang=>1, zhang=>2);
   
2. print %hash{wang}, "\n"; #语法错
   
3. print $hash{wang}, "\n"; #正确

复制代码

churchmice

乱说

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $name = &_get_names();
   
8. my $tel = &_get_tels();
   
9. 
   
10. foreach(@$name)
    
11. {
    
12.   print $tel->{$_},"\n";
    
13. }
    
14. 
    
15. sub _get_names
    
16. {
    
17.   my @names = ('zhang', 'wang', 'li');
    
18.   return \@names;
    
19. }
    
20. 
    
21. sub _get_tels
    
22. {
    
23.   my %tels = ('zhang'=>'000000', 'wang'=>'111111', 'li'=>'222222');
    
24.   return \%tels;
    
25. }
    
26. 
    

复制代码

ynchnluiti

原帖由 churchmice 于 2009-1-14 10:58 发表
乱说

请指正 。
我最近头脑不太灵活

HawaiiLeo

#!/usr/bin/perl

use strict;
use warnings;

my $name = &_get_names();
my $tel = &_get_tels();

foreach(@$name)
{
  #print $tel->{$_},"\n";
  print $$tel{$_},"\n";   ##这样也可以
}

sub _get_names
{
  my @names = ('zhang', 'wang', 'li');
  return \@names;
}

sub _get_tels
{
  my %tels = ('zhang'=>'000000', 'wang'=>'111111', 'li'=>'222222');
  return \%tels;
}

[ 本帖最后由 HawaiiLeo 于 2009-1-14 12:45 编辑 ]

MMMIX

原帖由 HawaiiLeo 于 2009-1-14 11:45 发表
#!/usr/bin/perl

use strict;
use warnings;

my $name = &_get_names();
my $tel = &_get_tels();

foreach(@$name)
{
  #print $tel->{$_},"\n";
  print $$tel->{$_},"\n";   ##这样也可以

Are you sure?

ynchnluiti

print $$tel->{$_},"\n";   ##这样也可以
是$$tel{$_}吧

cobrawgl

没看出来你想问什么问题

HawaiiLeo

对对，搞错了，对不起哦。
是$$tel{$_}

cobrawgl

地址这个说法是不妥当的