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

cuteorange

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

DQP

你要干啥

cuteorange

use strict;
use warnings;

open(F, "<", "d") or die("$!");
while (<F>) {
    print if /START/../END/;
}
close(F);

output:
START
1
2
3
4
END
START
10
11
END

希望继续用使用.., 而输出
START
1
2
3
4
END
5
6
END
8
9
END
START
10
11
END

yybmsrs

用范围操作符好像不行吧

李寻欢92

回复 1# cuteorange

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

复制代码

suxingwakeup

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

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);
   

复制代码

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

楼上是对了