如何用范围操作符匹配一个记录?

cuteorange

START
1
2
3
4
END
5
6
END
8
9
END
asdlfjasldf
START
10
11
END

cuteorange

噢。我看看.3x

黑色阳光_cu

范围操作符能实现吗？
cuteorange 发表于 2010-05-20 17:02

perl 5.12 的可能可以，你看看

cuteorange

范围操作符能实现吗？

hu145165

楼上是对了

黑色阳光_cu

use strict;
use warnings;

(my $content = sub {local $/; <DATA>}->()) =~ s/(?<=^END\n)(?!.*?^END\n.*?^START\n).*?(?=^START\n)//sm;
die $content;

__DATA__
START
1
2
3
4
END
5
6
END
8
9
END
2
34
START
10
11
END

hu145165

刚才发错了 改过来了

hu145165

1. use strict;
   
2. use warnings;
   
3. 
   
4. open(F, "<", "d") or die("$!");
   
5. while (<F>) {
   
6.     print if !/END/../START/;
   
7. }
   
8. close(F);
   

复制代码

suxingwakeup

sed 的/start/,/end/和perl的范围操作符是一样的/start/../end/

李寻欢92

回复 1# cuteorange

1. sed '/START/,/END/' datafile

复制代码