请教高手能不能给我解释一下这个脚本

stanley_tam

1. 
   
2. r  b   swpd   free   buff  cache   si   so    bi    bo   in   cs us sy id wa st
   
3. 2  0 213728  87600 1183808 849440    0    0    86    85    2    0  3  3 92  2  0
   
4. 0  0 213728  88864 1183808 849460    0    0     0     0 1022  372  5  3 93  0  0
   
5. 0  0 213728  88740 1183808 849472    0    0     0     2 1014  285  0  0 100  0  0
   
6. 
   
7. while (local $_ = <PH>) {
   
8.      next if /---/;
   
9.      s/^\s+|\s+$//g;
   
10.      if (/\d+/ && @keys) {
    
11.          @update{@keys} = split(/\s+/,$_);
    
12.      } else { @keys = split(/\s+/,$_); }
    
13. }
    
14. 
    
15. /\d+/ && @keys =>  是指这一行里有数字，且@keys存在
    
16. 如果这一行里没有数字，那肯定就是行：r  b   swpd   free   buff  cache   si   so    bi    bo   in   cs us sy id wa st
    
17. @keys = split(/\s+/,$_) =>将这一行按空格split，赋值给@keys
    
18. 
    
19. Perl就是随意了一点，就落下了一个write only的计算机语言的评价。
    
20. 建议遵循<<Perl最佳实践>> 一书
    
21. 
    
22. 
    
23. 我的话会这么写，应该会清楚一点。。。 :)
    
24. 
    
25. while (defined(my $line = readline PH)) {
    
26.     # skip --- line
    
27.     next if $line =~ m{---};
    
28.    
    
29.     # trim heading or trailing spaces
    
30.     $line =~ m{^\s+ | \s+$}mgx;
    
31. 
    
32.     # if line contain virtual memory state values
    
33.     if ($line =~ m{ \d+ }x and scalar @keys) {
    
34.         my @vmstat_numbers = split /\s+/, $line;
    
35. 
    
36.         # swallow them to hash %update;
    
37.         @update{@keys} = @vmstat_numbers;
    
38.     }
    
39.     else {
    
40.         # vmstat head data, use it as keys for hash %update
    
41.         @keys = split /\s+/, $line;
    
42.     }
    
43. 
    
44. }
    
45. 
    
46. 
    
47. 
    

复制代码

回复 8# Iinvincible


   

stanley_tam

1. 高手不敢当，一起学习吧
   
2. 偶认为while (local $_ = <PH>) {}   和   while (<PH>) {}基本等价。。。都是把PH里面的行赋值给了$_
   
3. 
   
4. 差别在于：
   
5. $_ = 'test';
   
6. while (local $_ = <PH>) {};
   
7. print $_;  # 为'test'
   
8. __END__
   
9. 
   
10. $_ = 'test';
    
11. while (<PH>) {};
    
12. print $_;  # 为 undef
    
13. 
    
14. 
    

复制代码

回复 10# pitonas


   

rubyish

回复 12# stanley_tam

1. 差别在于：
   
2. $_ = 'test';
   
3. while (local $_ = <PH>) {};
   
4. print $_;  # 为'test'
   
5. __END__
   
6. 
   
7. $_ = 'test';
   
8. while (<PH>) {};
   
9. print $_;  # 为 undef

复制代码

3Q~ 由浅入深，讲的不错，学习了。

   

redxuan123

回复 8# Iinvincible
我觉得是 只要@keys 有数据且匹配 就为真，不知道对么

   

stanley_tam

谢谢大神夸奖{:3_193:} 回复 13# rubyish


   

pitonas

回复 12# stanley_tam


    好厉害！又学了！谢谢