[已经解决，谢谢！]请教Perl读取文件里的内容

Tina0910

把一个文本里的内容整理到另外一个文本里面。

源文本文件里的内容：
AU deLeon, L
   Denhardt, RB
AF deLeon, L
   Denhardt, RB
TI The political theory of reinvention
AU Borins, S
AF Borins, S
TI Loose cannons and rule breakers, or enterprising leaders? Some evidence
   about innovative public managers
AU Bohte, J
   Meier, KJ
   Denhardt, RB
AF Bohte, J
   Meier, KJ
TI Loose cannons and rule breakers
...
...
...


希望得到的结果是：
AU deLeon, L
   Denhardt, RB
AU Borins, S
AU Bohte, J
   Meier, KJ
   Denhardt, RB
AF deLeon, L
   Denhardt, RB
AF Borins, S
AF Bohte, J
   Meier, KJ

尝试各种办法，由于第二行或者第三行的空的，比较特别。
求各位帮忙，非常感谢！！

MMMIX

回复 1# Tina0910


    Try this:

while (<>) {
  if (/^A/ .. /^[^A\s]/) {
    print unless /^[^A\s]/;
  }
}

sunzhiguolu

回复 1# Tina0910
具体说一下你的要求, 比如输出的条件, 希望得到什么样的结果.

   

Tina0910

其实源文件里面是很多AU AF TI..组成的，希望把所有的AU(AF,TI)后面的信息提取出来.
非常感谢！

homedw

读取源文件;

chomp;

while，foreach;

if （正则匹配）
{
   输出需要结果到新文件
}

打完收工！

Tina0910

谢谢，还是没有成功。如果提取AU， 我只能提取AU后面紧接的内容，但是后一行的在AF之前的内容读不出来。想要把AU和AF之间的内容读出来。

sunzhiguolu

回复 6# Tina0910
试下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while (<DATA>){
   
6.     if (my $sState = /\AAU/ .. /\AAF/){
   
7.         print unless ($sState == 1 or $sState =~ m/E/);
   
8.     }
   
9. }
   
10. 
    
11. __DATA__
    
12. AU deLeon, L
    
13.    Denhardt, RB
    
14. AF deLeon, L
    
15.    Denhardt, RB
    
16. TI The political theory of reinvention
    
17. AU Borins, S
    
18. AF Borins, S
    
19. TI Loose cannons and rule breakers, or enterprising leaders? Some evidence
    
20.    about innovative public managers
    
21. TI Loose cannons and rule breakers, or enterprising leaders? Some evidence
    
22.    about innovative public managers
    
23. TI Loose cannons and rule breakers, or enterprising leaders? Some evidence
    
24.    about innovative public managers
    
25. AU Bohte, J
    
26.    Meier, KJ
    
27.    Denhardt, RB
    
28. AF Bohte, J
    
29.    Meier, KJ
    
30. TI Loose cannons and rule breakers
    
31. TI Loose cannons and rule breakers
    
32. TI Loose cannons and rule breakers
    
33. TI Loose cannons and rule breakers

复制代码

jason680

回复 1# Tina0910

$ perl get_Ax.pl
AU deLeon, L
   Denhardt, RB
AF deLeon, L
   Denhardt, RB
AU Borins, S
AF Borins, S
AU Bohte, J
   Meier, KJ
   Denhardt, RB
AF Bohte, J
   Meier, KJ

$ cat get_Ax.pl
#!/usr/bin/perl
use strict;
use warnings;

my $sOut = 0;
while (<DATA>){
    $sOut = 0 if(m/^\S/);
    $sOut = 1 if(m/^A[UF]/);
    print if $sOut;
}

__DATA__
AU deLeon, L
   Denhardt, RB
AF deLeon, L
   Denhardt, RB
TI The political theory of reinvention
AU Borins, S
AF Borins, S
TI Loose cannons and rule breakers, or enterprising leaders? Some evidence
   about innovative public managers
TI Loose cannons and rule breakers, or enterprising leaders? Some evidence
   about innovative public managers
TI Loose cannons and rule breakers, or enterprising leaders? Some evidence
   about innovative public managers
AU Bohte, J
   Meier, KJ
   Denhardt, RB
AF Bohte, J
   Meier, KJ
TI Loose cannons and rule breakers
TI Loose cannons and rule breakers
TI Loose cannons and rule breakers
TI Loose cannons and rule breakers

   

sunzhiguolu

回复 8# jason680
大神您好, 您这个思路太给力了!