免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › 有关正则表达式匹配的问题,求高手帮忙
最近访问板块 发新帖
查看: 1835 | 回复: 9
打印 上一主题 下一主题

有关正则表达式匹配的问题,求高手帮忙 [复制链接]

bdwangchen

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2008-05-21 20:17 |只看该作者 |倒序浏览
原文件内容
<DOC>
<DOCID>DNPIN.19960210.0178</DOCID>
<HEADER>
<DATE>1996-02-10</DATE>
</HEADER>
<BODY>
<headline>
( (IP-HLN (NP-SBJ (NP (NP-PN (NR 上海)
        (NR 浦东))
        (NP (NP (NN 开发))
     (CC 与)
     (NN 法制)
     (NN 建设))))
   (VP (VV 同步))) )
</HEADLINE>
<TEDNPT>
<P>
输出结果
上海 NR B-NP
浦东 NR I-NP
开发 NN B-NP
与 CC I-NP
法制 NN I-NP
建设 NN I-NP
同步 VV o-vp
怎么通过正则表达式的匹配得到输出的结果啊?
括号前面出现包括NP的字符(或只有NP)的在后面加个B
括号前面不带字母的就在后面加个I
括号前面带字母但没有NP的就加个O
我是新手对匹配的语句有点陌生,希望大家帮忙!
谢谢大家了!
zhasm

论坛徽章:
0
2楼 [报告]
发表于 2008-05-21 21:14 |只看该作者
  • 括号前面出现包括NP的字符(或只有NP)的在后面加个B
  • 括号前面不带字母的就在后面加个I
  • 括号前面带字母但没有NP的就加个O
  • 我是新手对匹配的语句有点陌生,希望大家帮忙!

规则写得很清楚嘛，匹配也没有问题，都是把思路直接用程序表达出来而已。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
cobrawgl

论坛徽章:
0
3楼 [报告]
发表于 2008-05-22 08:21 |只看该作者

  2. #!/usr/bin/perl

  4. use strict;
  5. use warnings;

  7. while (<DATA>) {
  8.     chomp;
  9.         if (/(.+)\((..) ([^)]+)\)/) {
  10.                 my $s1 = $1;
  11.                 my $s2 = $2;
  12.                 my $s3 = $3;

  14.                 if ($s1 =~ /\w+/) {
  15.                     if ($s1 =~ /NP/) {
  16.                             print "$s3 $s2 B-NP\n";
  17.                         } else {       
  18.                             print "$s3 $s2 O-NP\n";
  19.                         }
  20.                 } else {
  21.                     print "$s3 $s2 I-NP\n";
  22.                 }
  23.         }
  24. }
  25. __DATA__
  26. <DOC>
  27. <DOCID>DNPIN.19960210.0178</DOCID>
  28. <HEADER>
  29. <DATE>1996-02-10</DATE>
  30. </HEADER>
  31. <BODY>
  32. <headline>
  33. ( (IP-HLN (NP-SBJ (NP (NP-PN (NR 上海)
  34.         (NR 浦东))
  35.         (NP (NP (NN 开发))
  36.      (CC 与)
  37.      (NN 法制)
  38.      (NN 建设))))
  39.    (VP (VV 同步))) )
  40. </HEADLINE>
  41. <TEDNPT>
  42. <P>

复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
bdwangchen

论坛徽章:
0
4楼 [报告]
发表于 2008-05-22 11:46 |只看该作者

回复 #3 cobrawgl 的帖子

十分感谢!你真是个大好人
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
bdwangchen

论坛徽章:
0
5楼 [报告]
发表于 2008-05-22 12:13 |只看该作者

回复 #3 cobrawgl 的帖子

我想把输出的东西存到e:\3.txt中去
open(FileIn,">>e:\\3.txt") or die "can't open file\n";
close(File);
为什么没有存到e:\\3.txt中去吧!
谢谢了!
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
cobrawgl

论坛徽章:
0
6楼 [报告]
发表于 2008-05-22 12:30 |只看该作者
原帖由 bdwangchen 于 2008-5-22 12:13 发表
我想把输出的东西存到e:\3.txt中去
open(FileIn,">>e:\\3.txt") or die "can't open file\n";
close(File);
为什么没有存到e:\\3.txt中去吧!
谢谢了!


你不往里打印怎么会有东西。

open FILE, ">>e:/3.txt"

......

print FILE "$s3 $s2 B-NP\n";

改成这样的。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
bdwangchen

论坛徽章:
0
7楼 [报告]
发表于 2008-05-22 12:40 |只看该作者

回复 #6 cobrawgl 的帖子

#!/usr/bin/perl
use strict;
use warnings;
open(FileIn,"e:\\1.txt")||die"can't open";
while (<FileIn>) {
    chomp;
        if (/(.+)\((..) ([^)]+)\)/) {
                my $s1 = $1;
                my $s2 = $2;
                my $s3 = $3;

                if ($s1 =~ /\w+/) {
                    if ($s1 =~ /NP/) {
                            print FILE "$s3 $s2 B-NP\n";
                        } else {        
                            print FILE"$s3 $s2 O-NP\n";
                        }
                } else {
                    print FILE"$s3 $s2 I-NP\n";
                }
        }
}
open(FILE,">>e:\\3.txt") or die "can't open file\n";
close(File);
我改成这样了,但好是不行!
谢谢
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
cobrawgl

论坛徽章:
0
8楼 [报告]
发表于 2008-05-22 12:58 |只看该作者



  2. #!/usr/bin/perl
  3. use strict;
  4. use warnings;
  5. open(FileIn,"e:\\1.txt")||die"can't open";
  6. open(FILE,">>e:\\3.txt") or die "can't open file\n";   <---------
  7. while (<FileIn>) {
  8.     chomp;
  9.         if (/(.+)\((..) ([^)]+)\)/) {
  10.                 my $s1 = $1;
  11.                 my $s2 = $2;
  12.                 my $s3 = $3;

  14.                 if ($s1 =~ /\w+/) {
  15.                     if ($s1 =~ /NP/) {
  16.                             print FILE "$s3 $s2 B-NP\n";
  17.                         } else {        
  18.                             print FILE"$s3 $s2 O-NP\n";
  19.                         }
  20.                 } else {
  21.                     print FILE"$s3 $s2 I-NP\n";
  22.                 }
  23.         }
  24. }

  26. close(File);
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
bdwangchen

论坛徽章:
0
9楼 [报告]
发表于 2008-05-22 13:07 |只看该作者

回复 #8 cobrawgl 的帖子

成功完成!谢谢你了!
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
不死草

论坛徽章:
0
10楼 [报告]
发表于 2008-05-22 13:40 |只看该作者
呵呵，你的基础还不过关，先看看小骆驼吧。。。cobrawgl  还真是大天使。。。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP