打印不出正确的结果

sunzhiguolu

示例文本如下:

-hy
hu-
ju-li-
-vh--jfu---nc7ft----gf7d-----nvhg------
-hfy-mi8-
--bfhk--6dgt7--
hfyw5---9fjy6
hfydr----89ku7y5.
ctd-----hf.d76
ftsn------mc.d7
dg.d------7fb------hft5------
---mdu.76dt
uize--
dr5---
f5w-
jid----
cfaz-----
nklf6------
-hu6
--gyd5
---svtq
-----uio3
hf-jg7-hdu----hvg
hfy----nvhs----7f6
vhfy----lsiw----
vgy----jda----cks8----mcy2----kvi9----zos8
c.vy-jf.7v--my.s---syq4x----ncya.----mg7s----
b.ct----jd.3----
nv-jd7--nq---u6d----hai----
156++--
zhd--+1451
...--14
00..++--**
b--//721
*014--=wz
50+--+..
++--**//124
*9*/--
6+45+--+
28ab@--
==--09
//**--
wg++--**..
qig++--00
xi--//**123
/**-/*+--+*-++*-+*
        146++--
xii87---@3.m
l-lye@yoo.e---cer
lm_ds@il.r---cr--
---p8@ho.d---ra2
---823
--126
---5868
---p8
aln@hl.o--129--
als8@1.c--mb4--
b-//721
*014---=wz
50+----+..
++------**//124
*9*/-
6+45+-+
28ab@-
==-09
//**-
wg++-**..
qig++-00
xi-//**123
/**-/*+-+*-++*-+*
        146++-

希望找出一行中只有 1 次重复的 "-" (连字符) (允许出现多次), 像文本中的 第1, 3行 满足条件. 这里就不一 一列举了.
我现在希望 分别找出一行中连续重复的连字符次数为 1, 2, 3 次的那些行.

sunzhiguolu

我的代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub display{
   
6.     my ($qty, $data) = (@_);
   
7.     foreach (@$data){
   
8.         my $print = 1;
   
9.         while (/(-+)/g){
   
10.             if (length ($1) != $qty){
    
11.                 $print = 0;
    
12.                 last;
    
13.             }
    
14.         }
    
15.         print if ($print);
    
16.     }
    
17.     print "\n\n";
    
18. }
    
19. 
    
20. my @aData = <>;
    
21. #display (1, \@aData);
    
22. #display (2, \@aData);
    
23. #display (3, \@aData);
    

复制代码

如果单独执行 display 函数一次, 没有问题. 但是要连续执行的话 就得不到正确的结果, 弄了半天没找到问题出在哪里 还请大家指点, 谢谢大家...

stanley_tam

恭喜你，踩到正则的坑上面

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub display{
   
6.     my ($qty, $data) = (@_);
   
7.     foreach (@$data){
   
8.         my $print = 1;
   
9.         pos() = undef;
   
10.         while (/(-+)/g){
    
11.             if (length ($1) != $qty){
    
12.                 $print = 0;
    
13.                 last;
    
14.             }
    
15.         }
    
16.         print if ($print);
    
17.     }
    
18.     print "\n\n";
    
19. }
    
20. 
    
21. my @aData = <>;
    
22. display (1, \@aData);
    
23. display (2, \@aData);
    
24. display (3, \@aData);

复制代码

sunzhiguolu

回复 3# stanley_tam
试了下, 正像大师所言. 谢谢大师指点!
能否说下原因吗? (简单点就行)

   

stanley_tam

不是大师，偶尔用perl。
http://perldoc.perl.org/perlretut.html中有global matching的解释。


回复 4# sunzhiguolu

sunzhiguolu

作了一个小实验, 好像有点开窍, 谢谢大师指点!!!

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub match{
   
6.     my ($qty, $str) = (@_);
   
7.     my $print = 1;
   
8.     while ($$str =~ /(-+)/g){
   
9.         if (length ($1) != $qty){
   
10.             $print = 0;
    
11.             last;
    
12.         }
    
13.     }
    
14.     my $pos = pos ($$str) || -1;
    
15.     $print ? print("Match:$$str,End Position:$pos\n") : print("Unmatch:$$str,End Position:$pos\n");
    
16. }
    
17. 
    
18. my $str = "-A---B--C--";
    
19. my $str_copy = $str;
    
20. 
    
21. match (1, \$str);
    
22. match (2, \$str);
    
23. #match (2, \$str_copy);
    

复制代码

yinyuemi

回复 1# sunzhiguolu

1. # -
   
2. perl -ne 'print if m{(^([^-]+(-{1}))+[^-]*$)|(^[^-]*((-{1})[^-]+)+$)}' file
   
3. # --
   
4. perl -ne 'print if m{(^([^-]+(-{2}))+[^-]*$)|(^[^-]*((-{2})[^-]+)+$)}' file
   
5. ...
   

复制代码

sunzhiguolu

yinyuemi 发表于 2016-07-31 09:26
回复 1# sunzhiguolu

这个表达式转换成对应的程序代码该咋写啊。请挂 "SS" 的大神指点一下。
谢大神，

sunzhiguolu

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. # Match one '-'
   
7. sub match_hyphen_by_handle{
   
8.     my ($qty, $data) = (@_);
   
9.     foreach my $v (@$data){
   
10.         my ($offset, $print) = (0, 1);
    
11.         while (($offset = index ($v, "-", $offset)) != -1){
    
12.             if (index ($v, "-", $offset + 1) == $offset + 1){
    
13.                 $print = 0;
    
14.                 last;
    
15.             }
    
16.             $offset++;
    
17.         }
    
18.         print "$v\n" if ($print);
    
19.     }
    
20. }
    
21. 
    
22. my @aData = <>;
    
23. match_hyphen_by_handle (1, \@aData);
    

复制代码

sunzhiguolu

再来,

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub match_hyphen_by_handle{
   
7.     my ($hyphen, $data) = (@_);
   
8.     foreach (grep {index ($_, $hyphen) != -1} @$data){
   
9.         print  if (join ($hyphen, split (/-+/)) eq $_);
   
10.     }
    
11.     print "\n\n";
    
12. }
    
13. 
    
14. my @aData = <>;
    
15. match_hyphen_by_handle ("-" x $_, \@aData) for 1 .. 3;
    

复制代码

perl abc.pl f
-------------------------------------------------------------------------------------------------------------
-hy
hu-
ju-li-
-hfy-mi8-
f5w-
-hu6
b-//721
*9*/-
6+45+-+
28ab@-
==-09
//**-
wg++-**..
qig++-00
xi-//**123
/**-/*+-+*-++*-+*
        146++-


--bfhk--6dgt7--
uize--
--gyd5
156++--
zhd--+1451
...--14
00..++--**
b--//721
*014--=wz
50+--+..
++--**//124
*9*/--
6+45+--+
28ab@--
==--09
//**--
wg++--**..
qig++--00
xi--//**123
        146++--
--126
aln@hl.o--129--
als8@1.c--mb4--


hfyw5---9fjy6
---mdu.76dt
dr5---
---svtq
xii87---@3.m
---p8@ho.d---ra2
---823
---5868
---p8
*014---=wz