通过标示符提取文本信息

摇摆蝶仙

假设一个文件中有若干个标示符A，A以下的内容都需要提取，否则不提取，（如以下形式，红色部分是需要提取的）。请问如何实现呢。谢谢

name=A
blabla..bla1
blabla..bla1
...
blabla..bla1
name=C
blablablan
blablablan
...
blablablan
name=W
blablablan
blablablan
blablablan
name=A
blabla..bla1
...
bla
name=D
blablabla..
.....

摇摆蝶仙

已经解决...............

jason680

回复 1# 摇摆蝶仙

1. read file by each line
    while(<FH>){ ...}

2. check label and set the flag
   if(m/^name=(\S+)/){
     $sMatch = 0;
     $sMatch = 1 if($1 eq "A");
     next;
   }

3. get the data in matched segment
  if($sMatch == 1){
    # get the data and do something ...
  }

摇摆蝶仙

非常之感谢。

回复 3# jason680