正则遍历问题

ttcn_cu

需要处理一段文本，每次读固定的个数N个，用正则（\w{n})的话，每次搜索的步进为N，希望搜索的步进可以控制，为1或者其他值。

用固定数组实现了一个，如下，希望改成纯正则实现，请正则达人指点，谢谢。

1. #!perl
   
2. use 5.010;
   
3. use strict;
   
4. use warnings;
   
5. use utf8;
   
6. $_=q(甲 乙 丙 丁 戊 己 庚 辛 壬 癸);
   
7. sub make_fixed_length_queue{
   
8.         my $arg_length = shift;
   
9.         my @myqueue=();
   
10.         return sub{
    
11.                 my ($arg_action,$arg_opt)=@_;
    
12.                         given($arg_action){
    
13.                                 when (undef){
    
14.                                         return \@myqueue;
    
15.                                 };
    
16.                                 when(/push/){
    
17.                                         push @myqueue,$arg_opt;
    
18.                                         return ($#myqueue>=$arg_length)?(shift @myqueue):undef;
    
19.                                 };
    
20.                         }
    
21.         }
    
22. 
    
23. }
    
24. my $S_queue_3=make_fixed_length_queue 3;
    
25. say join",",@{$S_queue_3->()};
    
26. while(/(\w+)/g){
    
27.         $S_queue_3->('push',$1);
    
28.         say join",",@{$S_queue_3->()};
    
29. }

复制代码

输出：
Process started >>>
甲
甲,乙
甲,乙,丙
乙,丙,丁
丙,丁,戊
丁,戊,己
戊,己,庚
己,庚,辛
庚,辛,壬
辛,壬,癸
<<< Process finished.

sjdy521

每次读固定的个数N个，这个为啥非要用正则？感觉很别扭

3P主义

1. 
   
2. #!/bin/env perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $seq = q(甲 乙 丙 丁 戊 己 庚 辛 壬 癸);
   
8. 
   
9. while ($seq =~ /(\S+)\s+(?=(\S+)\s+(\S+))/g) {
   
10.     print "$1 $2 $3\n";
    
11. }
    

复制代码

kiwivip

因为楼主是正则达人~回复 2# sjdy521


   

yinyuemi

回复 1# ttcn_cu
这样行么？

1. perl -le '$s=q/a b c d e f g h i j k/;$s=~m{(^(\S\s){1,3}|(?<!^)(\S\s){3})(?{print $1})(*FAIL)}'
   
2. a b c
   
3. a b
   
4. a
   
5. b c d
   
6. c d e
   
7. d e f
   
8. e f g
   
9. f g h
   
10. g h i
    
11. h i j
    
12. 
    
13. 
    

复制代码

ttcn_cu

3P主义 发表于 2012-04-17 10:40

对的，就是这么分组不捕获，多谢！！！