请教一个关于hash的问题

Ammon

有这样的一个数据结构:

grp "hardware" {
12/24;
13/25;
14/26;
};
grp "software" {
15/27;
16/28;
17/29;
};

想以"hardware""software"作为key值,然后对应的{安装数量/总数量}里面的"安装数量"作为values值.

尝试过把\r\n 替换掉合并成一行再使用正则匹配,但好像在多个{}情况下,很难匹配到.

所以请教下这个结构 怎么匹配成hash方式呢?

kk861123

回复 1# Ammon


    按你要求，写了一个

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hash;
   
6. my $key;
   
7. while (<DATA>) {
   
8.         if (/grp \"(\w+)\" \{/) {
   
9.                 $key = $1;
   
10.                 next;
    
11.         }
    
12.         if (/\};/) {
    
13.                 undef $key;
    
14.         }
    
15.         if ($key) {
    
16.                 push @{ $hash{$key} },(split /\//,$_)[0];
    
17.         }
    
18. }
    
19. use Data::Dumper;
    
20. print Dumper \%hash;
    
21. 
    
22. __DATA__
    
23. grp "hardware" {
    
24. 12/24;
    
25. 13/25;
    
26. 14/26;
    
27. };
    
28. grp "software" {
    
29. 15/27;
    
30. 16/28;
    
31. 17/29;
    
32. };
    

复制代码

Ammon

谢谢了 代码很简洁 完全符合需求

可以帮忙再解释下

push @{ $hash{$key} },(split /\//,$_)[0];

这个[0] 是什么意思吗?

kk861123

回复 3# Ammon


    split后数组的第一个元素，就是你要的‘安装数量’：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my $line = '12/24;';
   
7. my @data = split /\//,$line;
   
8. print Dumper \@data;

复制代码

yinyuemi

回复 1# Ammon

1. echo 'grp "hardware" {
   
2. 12/24;
   
3. 13/25;
   
4. 14/26;
   
5. };
   
6. grp "software" {
   
7. 15/27;
   
8. 16/28;
   
9. 17/29;
   
10. };' |\
    
11. perl -MData::Dumper -le 'while(<>){
    
12.   if(/{/)
    
13.     {$key=(split /"/)[1];}
    
14.   elsif(/[0-9];$/)
    
15.    {$value.=(split /\/|;/)[1]."\n"}
    
16. else
    
17.   {$hash{$key}=$value;$key=$value=""}
    
18. }
    
19. END{print Dumper \%hash}
    
20. '
    
21. $VAR1 = {
    
22.           'software' => '27
    
23. 28
    
24. 29
    
25. ',
    
26.           'hardware' => '24
    
27. 25
    
28. 26
    
29. '
    
30.         };
    
31. 
    

复制代码

kk861123

回复 1# Ammon


    刚才一直没想起来范围操作符的使用方式，这样也比较好懂：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hash;
   
6. my $key;
   
7. while (<DATA>) {
   
8.         if (/grp \"(\w+)\" \{/../\};/) {
   
9.                 $key = $1;
   
10.                 if (/(\d+)\/\d+/) {
    
11.                         push @{$hash{$key}},$1;
    
12.                 }
    
13.         }
    
14. }
    
15. 
    
16. use Data::Dumper;
    
17. print Dumper \%hash;
    
18. 
    
19. __DATA__
    
20. grp "hardware" {
    
21. 12/24;
    
22. 13/25;
    
23. 14/26;
    
24. };
    
25. grp "software" {
    
26. 15/27;
    
27. 16/28;
    
28. 17/29;
    
29. };
    

复制代码