找出10行以内包含两个指定字符串的段落

paktc

在文本中，找出10行以内 里面有
"folder"也有"size"的段落。

比如:

folder size

fsafdsa
f size
ds
fsd folder
f
sa s
fsd
fsd  folder
f
d346s  
f346
3521
f35
2365
4523161
dfs2355
6436
3147
2666666size 这个超出10行

1 : folder size <- 这一行有folder 和size
=======
1 : folder size <-
2 :
3 : fsafdsa
4 : f size         <- 这一段有folder 和size
=======
1 : folder size <-
2 :
3 : fsafdsa
4 : f size
5 : ds
6 : fsd folder <- 这一段有size 和folder
=======
4 : f size       <-
5 : ds
6 : fsd folder <- 这一段有size 和folder
=======

我只是……  偶然在搜索的时候想要用到这样的方式。
好像蛮有思考空间的。  如果说同时出现在同一行的话大概就是以上的情况
  貌似可以先筛选出所有包含字串A 和字串B的行号然后对比出来额，编写中

toniz

1. use strict;
   
2. 
   
3. my $str=join '^&*',<DATA>;
   
4. $str=~s/(\r|\n)//g;
   
5. my $i;
   
6. $str=~m{(folder.*?size)(?{evalsub($1)})(?!)};
   
7. $str=~m{(size.*?folder)(?{evalsub($1)})(?!)};
   
8. 
   
9. sub evalsub(){
   
10.         my $tmp=shift;
    
11.         my @tmp=split /\^\&\*/,$tmp;
    
12.         if($#tmp<9){
    
13.                 print "第".$i++."个:\n";
    
14.                 my $j=0;
    
15.                 foreach(@tmp){
    
16.                         print "row".$j++."\t: $_\n";
    
17.                         }
    
18.         }               
    
19. }
    
20. 
    
21. __DATA__
    
22. folder size
    
23. 
    
24. fsafdsa
    
25. f size
    
26. ds
    
27. fsd folder
    
28. f
    
29. sa s
    
30. fsd
    
31. fsd  folder
    
32. f
    
33. d346s  
    
34. f346
    
35. 3521
    
36. f35
    
37. 2365
    
38. 4523161
    
39. dfs2355
    
40. 6436
    
41. 3147
    
42. 2666666size
    

复制代码

toniz

[quote]perl k.t
第0个:
row0    :folder size
第1个:
row0    :folder size
row1    :
row2    :fsafdsa
row3    :f size
第2个:
row0    :size
row1    :
row2    :fsafdsa
row3    :f size
row4    :ds
row5    :fsd folder
第3个:
row0    :size
row1    :ds
row2    :fsd folder
第4个:
row0    :size
row1    :ds
row2    :fsd folder
row3    :f
row4    :sa s
row5    :fsd
row6    :fsd  folder

[/quote]

paktc

谢谢楼上大侠提供的思路，慢慢消化


靠包含字符串的行号来判断的思路。弄到现在=_=

1. 
   
2. open READ,"<test.txt" or die "$!";
   
3. @all=<READ>;
   
4. close READ;
   
5. ($line,$a,$b)=(0,0,0);
   
6. foreach (@all) {
   
7.         if (/folder/) {$a[$a++]=$line};
   
8.         if (/size/) {$b[$b++]=$line};
   
9.         $line++;
   
10. }
    
11. 
    
12. foreach $a (@a) {
    
13.         foreach $b (@b) {
    
14.                 ($ta,$tb)=($a,$b);
    
15.                 if ($tb<$ta) {($ta,$tb)=($b,$a)};
    
16.                 if (($tb-$ta)<10) {
    
17.                         foreach $line ($ta..$tb) {
    
18.                                 print "$line : $all[$line]";
    
19.                         }
    
20.                         print "\n";
    
21.                 }
    
22.         }
    
23. }
    
24. 
    
25. <STDIN>;
    

复制代码