一个Perl 匹配问题 - 未名空间MITBBS历史存档 | Redian News

国际科技财经博客移民网络热点娱乐民生时事公众号

>Programming - 葵花宝典

>

一个Perl 匹配问题

一个Perl 匹配问题# Programming - 葵花宝典

L*r2007-10-09 07:10

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)

w*p2007-10-09 07:10

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)

L*r2007-10-09 07:10

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)

热点事件追踪

美国公司裁员Layoff

2024-01-28 18:01

2024-01-09 19:01

2024-01-07 18:01

美国堕胎权争议

2024-01-06 18:01

美国枪击案

2024-01-06 18:01

2023-12-13 17:12

2023-12-02 07:12

2023-11-26 18:11

中美航班重磅消息！每周85班，直飞更方便！

微软、亚马逊、谷歌大裁员！哪些科技和零售公司有缩减规模计划？

中国外长王毅：中美关系已经止跌回稳

脱轨事故造成20多人受伤联邦调查纽约市全部地铁系统

更多 2024-06-09 的新闻