求助

zlzty

有个问题想请教大家。。
我有一个哈希，里面的存储大概是这样的：

$hash{'aa'}{'bb'}{'cc'}='a*b/c';
$hash{'aaa'}{'bbb'}{'ccc'}='d-6+e*f/c';
大致的意思是当哈希所对应的键值有字母时+个_最终想得到这样的结果

$hash{'aa'}{'bb'}{'cc'}='_a*_b/_c';
$hash{'aaa'}{'bbb'}{'ccc'}='_d+_e*_f/_c';
请问有什么好的办法对值进行处理么。。谢谢

104359176

先写一个遍历哈希的迭代器，然后逐个的把哈希的值调出来，然后，用正则表达式进行替换。把新的值保存在一个新的哈希中，按照原来的结构。

cinanine

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. my %h;
   
4. $h{aa}{bb}{cc}    = 'a*b/c';
   
5. $h{aaa}{bbb}{ccc} = 'd-6+e*f/c';
   
6. $h{a}{b}{d}       = 'd+6+a*f/b';
   
7. $h{x}             = 'xx+yy-zz*2';
   
8. 
   
9. sub change {
   
10.     my $h = shift;
    
11.     ref $h->{$_} ? change( $h->{$_} ) : $h->{$_} =~ s/\b([a-z])/_$1/g
    
12.       for keys %$h;
    
13. }
    
14. change \%h;
    
15. 
    
16. 
    
17. say $h{aa}{bb}{cc};
    
18. say $h{aaa}{bbb}{ccc};
    
19. say $h{a}{b}{d};
    
20. say $h{x};

复制代码

1. _a*_b/_c
   
2. _d-6+_e*_f/_c
   
3. _d+6+_a*_f/_b
   
4. _xx+_yy-_zz*2
   

复制代码

zlzty

Thanks回复 3# cinanine


   

yakczh_cu

ref是关键字？