查找的相关问题

bdwangchen

原文件:
上海 NR B-NP
浦东 NR I-NP
开发 NN B-NP
与 CC I-NP
法制 NN I-NP
建设 NN I-NP
同步 VV O-NP
新华社 NN O-NP
上海 NR I-NP
二月 NT I-NP
十日 NT I-NP
变成:
(上海浦东)(开发与法制建设)
特征是B+I+I....到出现B或O结束
希望高手能帮忙!

cobrawgl

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $flag = 0;
   
8. 
   
9. while (<DATA>) {
   
10.     chomp;
    
11.         if (/B/) {
    
12.                 if ($flag == 0) {
    
13.                 print '(';
    
14.                     print ((split)[0]);
    
15.                     $flag = 1;
    
16.                 } else {
    
17.                     print ')(';
    
18.                         print ((split)[0]);
    
19.                 }
    
20.         } elsif (/I/) {
    
21.                 print ((split)[0]) if $flag;
    
22.         } elsif (/O/) {
    
23.                 if ($flag) {
    
24.                 print ')';
    
25.                     $flag = 0;
    
26.                 }
    
27.         }
    
28. }
    
29. __DATA__
    
30. 上海 NR B-NP
    
31. 浦东 NR I-NP
    
32. 开发 NN B-NP
    
33. 与 CC I-NP
    
34. 法制 NN I-NP
    
35. 建设 NN I-NP
    
36. 同步 VV O-NP
    
37. 新华社 NN O-NP
    
38. 上海 NR I-NP
    
39. 二月 NT I-NP
    
40. 十日 NT I-NP
    

复制代码

bdwangchen

能否把输出的结果写如到一个文件夹里啊!
例如写入到">>e:\\text.txt"中!谢谢

bdwangchen

不用了!我自己解决了!谢谢你了