求助 小括号捕获

609854

求助：要求纯证则表达处理，小括号捕获：/tmp_mnt/user/baoliz 这样的目录、-1这样的数字、total/free/used/%。
注意- 第一行有7列，第二行有3列，第三行有3列， 第四行有4列...循环下去。

1. /tmp_mnt/user/baoliz   (silo:/home/baoliz     ) :       -1 total i-nodes
   
2.                                                         -1 free i-nodes
   
3.                                                         -1 used i-nodes
   
4.                                                         -1 % i-nodes used
   
5. /tmp_mnt/user/jiaw     (silo:/home/jiaw       ) :       -1 total i-nodes
   
6.                                                         -1 free i-nodes
   
7.                                                         -1 used i-nodes
   
8.                                                         -1 % i-nodes used
   
9. /tmp_mnt/user/huxiaoh  (silo:/home/huxiaoh    ) :       -1 total i-nodes
   
10.                                                         -1 free i-nodes
    
11.                                                         -1 used i-nodes
    
12.                                                         -1 % i-nodes used

复制代码

zhlong8

这个 split 下就行了。

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my %res;
   
7. my @value;
   
8. my $key;
   
9. while (<DATA>) {
   
10.     if (/\s*(\/\S+)*\s*.*?(-?\d+ [\w%]+)/) {
    
11.         if (defined $1) {
    
12.             if (defined $key) {
    
13.                 $res{$key} = [@value];
    
14.                 @value = ();
    
15.             }
    
16.             $key = $1;
    
17.         }
    
18.         push @value, $2;
    
19.     }
    
20. }
    
21. $res{$key} = [@value];
    
22. 
    
23. for $key (keys %res) {
    
24.     print "$key\n";
    
25.     my $value = $res{$key};
    
26.     for my $v (@$value) {
    
27.         print "\t$v\n";
    
28.     }
    
29. }
    
30. 
    
31. __DATA__
    
32.     /tmp_mnt/user/baoliz   (silo:/home/baoliz     ) :       -1 total i-nodes
    
33.                                                             -1 free i-nodes
    
34.                                                             -1 used i-nodes
    
35.                                                             -1 % i-nodes used
    
36.     /tmp_mnt/user/jiaw     (silo:/home/jiaw       ) :       -1 total i-nodes
    
37.                                                             -1 free i-nodes
    
38.                                                             -1 used i-nodes
    
39.                                                             -1 % i-nodes used
    
40.     /tmp_mnt/user/huxiaoh  (silo:/home/huxiaoh    ) :       -1 total i-nodes
    
41.                                                             -1 free i-nodes
    
42.                                                             -1 used i-nodes
    
43.                                                             -1 % i-nodes used

复制代码

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my %res;
   
7. my @value;
   
8. my $key;
   
9. while (<DATA>) {
   
10.     if (/\s*(\/\S+)*\s*.*?(-?\d+ [\w%]+)/) {
    
11.         if (defined $1) {
    
12.             if (defined $key) {
    
13.                 $res{$key} = join " | ", @value;
    
14.                 @value = ();
    
15.             }
    
16.             $key = $1;
    
17.         }
    
18.         push @value, $2;
    
19.     }
    
20. }
    
21. $res{$key} = join " | ", @value;
    
22. 
    
23. for $key (keys %res) {
    
24.     printf "%-32s =>  %s\n", $key, $res{$key};
    
25. }
    
26. 
    
27. 
    
28. __DATA__
    
29.     /tmp_mnt/user/baoliz   (silo:/home/baoliz     ) :       -1 total i-nodes
    
30.                                                             -1 free i-nodes
    
31.                                                             -1 used i-nodes
    
32.                                                             -1 % i-nodes used
    
33.     /tmp_mnt/user/jiaw     (silo:/home/jiaw       ) :       -1 total i-nodes
    
34.                                                             -1 free i-nodes
    
35.                                                             -1 used i-nodes
    
36.                                                             -1 % i-nodes used
    
37.     /tmp_mnt/user/huxiaoh  (silo:/home/huxiaoh    ) :       -1 total i-nodes
    
38.                                                             -1 free i-nodes
    
39.                                                             -1 used i-nodes
    
40.                                                             -1 % i-nodes used

复制代码

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. $text = join "", <DATA>;
   
4. @r = grep { $_ } ($text =~ /^\s+(\/.*?)?\s.*?(-?\d+ [\w%]+)+/gms);
   
5. print "@r\n";
   

复制代码