如何提取介于某个区间的几行文字，区间的开始和结束可以用正则表达式描述

juzi1114

谢谢啦 真的要加油学习了.. 呵呵..

ly5066113

原帖由 flw 于 2008-6-20 13:13 发表

range operator 有一个内置的 state，相当于你的 $key，不过由它自己来维护，因此可读性更好。

恩，老大的方法确实非常优雅。但 ?! 这种东西，不是只读过一遍小骆驼的我所能理解的，呵呵。

ulmer

Another way is to use $/ ($INPUT_RECORD_SEPARATOR).
Because your data structure is typically with beginning of "CC   -!-" terminated,
using $/ = "CC   -!-" to seperate the records and to store then in each element of an array.
Then processing array's element to get what you want.
Sample code:

$/ = "CC   -!-";
my @data = ();
while (<DATA>) {
    chomp;
    push @data, $_ if $_ ne '';
}

__DATA__
CC   -!- FUNCTION: Rapidly .
CC   -!- CATALYTIC ACTIVITY: Acetylcholine.
CC   -!- SUBUNIT: Homotetramer; composed .
CC       Interacts with PRIMA1.
CC       anchor it to the basal
CC       (By similarity).
CC   -!- SUBCELLULAR LOCATION: Cell junction, synapse. Secreted (By
CC       similarity). Cell membrane; Peripheral membrane protein (By
CC       similarity).
CC   -!- SUBCELLULAR LOCATION: Isoform 2: Cell membrane;
CC       anchor; Extracellular side (By similarity).
CC   -!- ALTERNATIVE PRODUCTS:
CC       Event=Alternative splicing; Named isoforms=2;

juzi1114

thanks very much!

flw

原帖由 ly5066113 于 2008-6-20 13:27 发表

恩，老大的方法确实非常优雅。但 ?! 这种东西，不是只读过一遍小骆驼的我所能理解的，呵呵。

?! 是这个问题特有的，和 range operator 倒没什么关系。
因此并不是总需要用到 ?!，而 range operator 用来解决这一类问题确实很方便。

不死草

原帖由 flw 于 2008-6-20 12:13 发表
$start 表示开始标记的模式，$end 表示结束标记的模式，
if ( (/$start/ .. /$end/) and !/$end/ ){
表示需要开始和结束之间的，但不需要结束的那一行。

斑竹的方法确实不错，学习ing!~...

fdimim

我用了下，发现个需要注意的：
如果$start匹配了，而$end没有匹配，那么它会一直匹配到底。
这样的话就不好玩了。不过现在想想还是比较合理的。
但是第一次使用的时候没注意，还以为perl有问题呢....

gaoquanlong

原帖由 flw 于 2008-6-20 13:13 发表

range operator 有一个内置的 state，相当于你的 $key，不过由它自己来维护，因此可读性更好。

版主能不能把这个也写一下，供大家学习一下，谢了。。。。

khandielas

这个好，真没想到 .. 操作符 还有这用。

多谢，多谢。