logo
Redian新闻
>未名空间
>Programming - 葵花宝典
>
一个Perl 匹配问题
avatar
一个Perl 匹配问题# Programming - 葵花宝典
L*r
1 楼
对下列文本逐行处理，
主要目标是把 括号里包含有NN/JJ/NNS/VP的短语提取出来，存到一个数组里。
比如这行"(NP (JJ extreme) (NN fire) (NN threat)))"
要求处理后的数组为
@array==("(JJ extreme)","(NN fire)","(NN threat)")
我用
my $content_ALL = '.*(\(NNPS\s.+\)|\(NNP\s.+\)|\(NNS\s.+\)|\(NN\s.+\)|\(JJR\
s.+\)|\(JJS\s.+\)|\(JJ\s.+\)|\(VBZ\s.+\)|\(VBD\s.+\)|\(VBG\s.+\)|\(VBN\s.+\)
|\(VBP\s.+\)|\(VB\s.+\)|\(RBS\s.+\)|\(RBR\s.+\)|\(RB\s.+\))';
my @myp = $line =~/$content_ALL/g;
可是根本得不到要的效果。
谁给个方子？谢谢
(ROOT
(S
(NP
(NP (NNS Scores))
(PP (IN of)
avatar
w*p
2 楼
this should work:
test.pl:
my $input = '(NP (JJ extreme) (NN fire) (NN threat)))';
my @result = $input =~ /(\(JJ[^)]*\))|(\(NN[^)]*\))/g;
map { print "$_\n" if $_ } @result;
$ perl test.pl
(JJ extreme)
(NN fire)
(NN threat)
avatar
L*r
3 楼
thanks.

【在 w******p 的大作中提到】
: this should work:
: test.pl:
: my $input = '(NP (JJ extreme) (NN fire) (NN threat)))';
: my @result = $input =~ /(\(JJ[^)]*\))|(\(NN[^)]*\))/g;
: map { print "$_\n" if $_ } @result;
: $ perl test.pl
: (JJ extreme)
: (NN fire)
: (NN threat)
相关阅读
/usr/bin/ld: Undefined symbols:问一个Fortran和C++科学数值格式输出区别的问题问个题。Cannot use my own container as the underlying container of a stack? (c++)请教：哪里去找 Telecommute 工作呢？C 中的typedef 一问java有没有现成的tree class?想学习gis，请问大家有什么好书推荐给初学者自学，多谢matlab source code control?用python glue C＋＋ 有什么好的办法help我有个很傻的问题，关于function call via pointer64位整数除法?问个线程同步的问题请帮忙准备C的interviewwe have a opening谁给科普一下一般系统的stack和heap内存各有多大？Question about vector as a class member为什么derived object没有vptr?再问个C++模板问题
logo
联系我们隐私协议©2024 redian.news
Redian新闻
Redian.news刊载任何文章，不代表同意其说法或描述，仅为提供更多信息，也不构成任何建议。文章信息的合法性及真实性由其作者负责，与Redian.news及其运营公司无关。欢迎投稿，如发现稿件侵权，或作者不愿在本网发表文章，请版权拥有者通知本网处理。