【求助】提取文本数据

thanatos0

my $test='TI Individual conceptions of public service motivation
SO PUBLIC ADMINISTRATION REVIEW
C1 Syracuse Univ, Syracuse, NY 13244 USA.
SI  adf
   Univ Georgia, Carl Vinson Inst Govt, Athens, GA 30602 USA.
RP Brewer, GA (reprint author), Syracuse Univ, Syracuse, NY 13244 USA.';

$test=~s/^(?!(SO|TI|C1|RP)).*//mg;
print "$test\n";

输出
TI Individual conceptions of public service motivation
SO PUBLIC ADMINISTRATION REVIEW
C1 Syracuse Univ, Syracuse, NY 13244 USA.


RP Brewer, GA (reprint author), Syracuse Univ, Syracuse, NY 13244 USA.

sunzhiguolu

回复 10# thanatos0
$test=~s/^[^(SO|C1|RP)].*//mg;
是这样用吗?

   

sunzhiguolu

回复 10# thanatos0
刷新了下, 回复了 3 条.

   

sunzhiguolu

回复 10# thanatos0
占楼等待编辑...

   

thanatos0

$test=~s/^(?!(SO|TI|C1|RP)).*//mg;
不是可以么，如果是读文件，小文件的话，可以$test=join '',<FFF>;  或改成句柄一行行读就好啦回复 14# sunzhiguolu


   

moperyblue

sed -r '/./{:a;N;/\n\s*$/!{$!ba};s/.*(ID [^\n]*(\n\s+[^\n]*)*).*/\1/;t;g;b};d' 1.txt

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. local $/ = '';
   
6. my $key = pop; #the last argument as the key
   
7. while (<DATA>){
   
8.     next if (/\A\s*\z/);
   
9.     my $out = /^($key.*)/m ? $1 : "";
   
10.     print $out, "\n";
    
11. }
    
12. 
    
13. __DATA__
    
14. TI The New Public Service: Serving rather than steering
    
15. SO PUBLIC ADMINISTRATION REVIEW
    
16. ID REINVENTING GOVERNMENT MOVEMENT; MANAGEMENT
    
17. C1 Arizona State Univ, Sch Publ Affairs, Tempe, AZ 85287 USA.
    
18. RP Denhardt, RB (reprint author), Univ Delaware, Newark, DE 19716 USA.
    
19. 
    
20. 
    
21. TI Individual conceptions of public service motivation
    
22. SO PUBLIC ADMINISTRATION REVIEW
    
23. C1 Syracuse Univ, Syracuse, NY 13244 USA.
    
24.    Univ Georgia, Carl Vinson Inst Govt, Athens, GA 30602 USA.
    
25. RP Brewer, GA (reprint author), Syracuse Univ, Syracuse, NY 13244 USA.
    
26. 
    
27. 
    
28. TI The political theory of reinvention
    
29. SO PUBLIC ADMINISTRATION REVIEW
    
30. ID PUBLIC ENTREPRENEURSHIP; GOVERNMENT; MANAGEMENT; DEMOCRACY; MOVEMENT
    
31. C1 Univ Colorado, Grad Sch Publ Affairs, Execut Master Publ Adm Program, Denver, CO 80202 USA.
    
32.    Univ Colorado, Grad Sch Publ Affairs, Rocky Mt MPA Program, Denver, CO 80202 USA.
    
33.    Arizona State Univ, Tempe, AZ 85287 USA.
    
34. 
    
35. 
    
36. TI Performance measurement in US counties: Capacity for reform
    
37. SO PUBLIC ADMINISTRATION REVIEW
    
38. ID GOVERNMENT; STATE; MANAGEMENT
    
39. RP Berman, E (reprint author), Univ Cent Florida, Dept Publ Adm, Orlando, FL 32816 USA.

复制代码