创建哈希

xiejiazhen

求帮忙，代码如下：

1. use Data::Dumper;
   
2. my $a = "a|b|c|d|e";
   
3. my $ref;
   
4. my @b = split /\|/,$a;
   
5. foreach (@b) {
   
6.     $ref = $ref->{$_};
   
7. }
   
8. $ref  +=1;
   
9. print Dumper($ref);

复制代码

为什么这段代码运行出来的结果不是$ref->{a}->{b}->{c}->{d}->{e}=1，而是$ref=1呢？

兰花仙子

加上use strict和use warnings.

xiejiazhen

回复 2# 兰花仙子


    仙子，我加了还是一样，得不到我想要的数据结构。

jason680

回复 3# xiejiazhen

1. use strict;
   
2. use warnings;
   
3. use Data::Dumper;
   
4. my $a = "a|b|c|d|e";
   
5. my(@b) = split /\|/,$a;
   
6. my $ref=new_ref(pop @b,1);
   
7. foreach (reverse @b) {
   
8.   $ref = new_ref($_, $ref);
   
9. }
   
10. print Dumper($ref);
    
11. #print "$ref->{a}{b}{c}{d}{e}\n";
    
12. 
    
13. sub new_ref{
    
14.   my $ref->{$_[0]} = $_[1];
    
15.   return $ref;
    
16. }

复制代码

yinyuemi

回复 1# xiejiazhen

1. use Data::Dumper;
   
2.     my $a = "a|b|c|d|e";
   
3.     my $ref; my %hash;
   
4.     my @b = split /\|/,$a; print Dumper \@b;
   
5.     foreach (@b) {
   
6.         $ref = defined $ref? {$_ => $ref} : {$_ => 1};
   
7.     }
   
8.     #$ref  +=1;
   
9.     print Dumper($ref);

复制代码

kk861123

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my $a = "a|b|c|d|e";
   
7. my $ref;
   
8. my $head = 1;
   
9. my @b = split /\|/,$a;
   
10. foreach (@b) {
    
11.     $ref  = {$_ => $head};
    
12.     $head = $ref;
    
13. }
    
14. 
    
15. print Dumper($ref);

复制代码

xiejiazhen

一觉醒来，发现有很多回复。谢谢大家帮忙。现在已经解决了。