如何这样匹配呢？怎么贪婪？

Question

大家好！

2. a
3. b
4. b
5. b
6. b
7. b
8. d
9. d
10. d

复制代码有如上文本。我只知道匹配a到最后一个b

1. perl -ne 'print if /a/../d/ and !/d/' test.txt >test01.txt

复制代码我现想匹配a到第二个b或者第三个，该怎么操作？

Answer 1

大家好！有如上文本。我只知道匹配a到最后一个b我现想匹配a到第二个b或者第三个，该怎么操作？
perlnewbie 发表于 2011-04-18 09:25

自己算....
$ echo -e "a\nb\nb\nb\nb\nb\nb\nd\nd\nd\n" | perl -ne 'if(/a/../d/ and !/d/){print;last if($c++==2)}'
a
b
b

$ echo -e "a\nb\nb\nb\nb\nb\nb\nd\nd\nd\n" | perl -ne 'if(/a/../d/ and !/d/){print;last if($c++==3)}'
a
b
b
b

Answer 2

chomp(my @aa = <DATA>);

my $join = join('',@aa);

print $& if ($join =~ /ab{2,3}/);   #得到abbb;
print $& if ($join =~ /ab{2,2}/);   #得到abb;

很笨的方法

Answer 3

原来这么简单啊@!!!!!爱死perl ,谢谢啊...

Answer 4

/a/../d/  会返回一个值，可以根据这个判断

Answer 5

/a(b){3}/   abbb
/a(b){2}/   abb

Answer 6

本帖最后由 albertd 于 2011-04-18 13:11 编辑

my $a;
$a.=chomp($_)? $_:'' while (<>);
print $& if $a =~ /a(b){3}/;