数组的分类

zhangfenyun

文本$file="d:/temp/inf" 里面的内容如下：

### Layer - drl features data ###
#P 203.09967 210.222845 r650 P 1 0 N;.bit=0.65,.drill=plated
#P 203.09967 216.039445 r650 P 1 0 N;.bit=0.65,.drill=plated
#P 213.7973875 207.212945 r950 P 2 0 N;.bit=0.95,.drill=plated
#P 213.7973875 209.7128125 r950 P 2 0 N;.bit=0.95,.drill=plated
#P 213.7973875 211.71281 r950 P 2 0 N;.bit=0.95,.drill=plated
#P 213.7973875 214.21293 r950 P 2 0 N;.bit=0.95,.drill=plated
#P 220.3886875 209.097625 r350 P 3 0 N;.bit=0.35,.drill=plated
#P 239.967 215.485725 r450 P 4 0 N;.bit=0.45,.drill=plated
#P 207.8106075 217.776805 r450 P 4 0 N;.bit=0.45,.drill=plated
#P 203.4976875 217.809825 r450 P 4 0 N;.bit=0.45,.drill=plated
#P 252.6641475 247.505185 r450 P 4 0 N;.bit=0.45,.drill=plated
#L 299.6796875 245.8001875 275.336 245.8001875 r4500 P 5 ;.bit=4.50,.drill=plated
#P 294.0231575 235.4097475 r4200 P 0 0 N



   
我想把文本中的某些行写到一个数组里面@a里面去，但是要满足条件（句首必须是#P,字母r后面的数字要大于4000）求解？

huang6894

这样可以吗？

yestreenstars

1. #!perl
   
2. use warnings;
   
3. use strict;
   
4. my @a;
   
5. while(<DATA>)
   
6. {
   
7.         my($num) = /r(\d+)/;
   
8.         push(@a, $_) if /^#P/ && $num > 4000;
   
9. }
   
10. __DATA__
    
11. ### Layer - drl features data ###
    
12. #P 203.09967 210.222845 r650 P 1 0 N;.bit=0.65,.drill=plated
    
13. #P 203.09967 216.039445 r650 P 1 0 N;.bit=0.65,.drill=plated
    
14. #P 213.7973875 207.212945 r950 P 2 0 N;.bit=0.95,.drill=plated
    
15. #P 213.7973875 209.7128125 r950 P 2 0 N;.bit=0.95,.drill=plated
    
16. #P 213.7973875 211.71281 r950 P 2 0 N;.bit=0.95,.drill=plated
    
17. #P 213.7973875 214.21293 r950 P 2 0 N;.bit=0.95,.drill=plated
    
18. #P 220.3886875 209.097625 r350 P 3 0 N;.bit=0.35,.drill=plated
    
19. #P 239.967 215.485725 r450 P 4 0 N;.bit=0.45,.drill=plated
    
20. #P 207.8106075 217.776805 r450 P 4 0 N;.bit=0.45,.drill=plated
    
21. #P 203.4976875 217.809825 r450 P 4 0 N;.bit=0.45,.drill=plated
    
22. #P 252.6641475 247.505185 r450 P 4 0 N;.bit=0.45,.drill=plated
    
23. #L 299.6796875 245.8001875 275.336 245.8001875 r4500 P 5 ;.bit=4.50,.drill=plated
    
24. #P 294.0231575 235.4097475 r4200 P 0 0 N

复制代码

substr函数

这样吗？

1. my @a = grep { /^#P\s\S+\s\S+\sr(\d+)/ && $1 > 4000 } <DATA>;
   
2. say @a;
   
3. 
   
4. __DATA__
   
5. ### Layer - drl features data ###
   
6. #P 203.09967 210.222845 r650 P 1 0 N;.bit=0.65,.drill=plated
   
7. #P 203.09967 216.039445 r650 P 1 0 N;.bit=0.65,.drill=plated
   
8. #P 213.7973875 207.212945 r950 P 2 0 N;.bit=0.95,.drill=plated
   
9. #P 213.7973875 209.7128125 r950 P 2 0 N;.bit=0.95,.drill=plated
   
10. #P 213.7973875 211.71281 r950 P 2 0 N;.bit=0.95,.drill=plated
    
11. #P 213.7973875 214.21293 r950 P 2 0 N;.bit=0.95,.drill=plated
    
12. #P 220.3886875 209.097625 r350 P 3 0 N;.bit=0.35,.drill=plated
    
13. #P 239.967 215.485725 r450 P 4 0 N;.bit=0.45,.drill=plated
    
14. #P 207.8106075 217.776805 r450 P 4 0 N;.bit=0.45,.drill=plated
    
15. #P 203.4976875 217.809825 r450 P 4 0 N;.bit=0.45,.drill=plated
    
16. #P 252.6641475 247.505185 r450 P 4 0 N;.bit=0.45,.drill=plated
    
17. #L 299.6796875 245.8001875 275.336 245.8001875 r4500 P 5 ;.bit=4.50,.drill=plated
    
18. #P 294.0231575 235.4097475 r4200 P 0 0 N

复制代码

q1208c

回复 4# substr函数


膜拜      

zhangfenyun

谢谢大家的回答，非常高心

jason680

回复 1# zhangfenyun

>>...但是要满足条件（句首必须是#P,字母r后面的数字要大于4000）求解？


if(m/^#P .*r(\d+)/){
  if($1 > 4000){
     # Your code
  }
}