使用perl，如何搜索_NN的文本文件（在单词的结尾处）并在前面打印单词？

Question

这使得整条生产线：

#!/usr/bin/perl 

$file = 'output.txt'; 
open(txt, $file); 
while($line = <txt>) { 
    print "$line" if $line =~ /_NN/; 
} 
close(txt); 

Answer 1

你的答案脚本读取有点笨拙，并且有几个潜在的错误。我已经重写了主逻辑循环，像这样：

foreach my $line (grep { /expend_VB/ } @sentences) { 
    my @nouns = grep { /_NN/ } split /\s+/, $line; 
    foreach my $word (@nouns) { 
     $word =~ s/_NN//; 
     print "$word\n"; 
    } 
    print "$line\n" if scalar(@nouns); 
} 

你需要把内循环我声明 - 否则它会持续的时间比你想让它，后来可以想象会出现问题。

foreach是一个更常见的perl习惯用于迭代列表。

Answer 2

print "$1" if $line =~ /(\S+)_NN/; 

Answer 3

#!/usr/bin/perl 
use strict; 
use warnings FATAL => "all"; 
binmode(STDOUT, ":utf8") || die; 

my $file = "output.txt"; 
open(TEXT, "< :utf8", $file) || die "Can't open $file: $!"; 
while(<TEXT>) { 
    print "$1\n" while /(\w+)_NN\b/g; 
} 
close(TEXT)     || die "Can't close $file: $!"; 

Answer 4

#!/usr/bin/perl 
use strict; 
use warnings FATAL => "all"; 
my $search_key = "expend";  ## CHANGE "..." to <> 

open(my $tag_corpus, '<', "ch13tagged.txt") or die $!; 

my @sentences = <$tag_corpus>; # This breaks up each line into list 
my @words; 

for (my $i=0; $i <= @sentences; $i++) { 
    if (defined($sentences[$i]) and $sentences[$i] =~ /($search_key)_VB.*/i) { 
     @words = split /\s/,$sentences[$i]; ## \s is a whitespace 

     for (my $j=0; $j <= @words; $j++) { 
#FILTER if word is noun:    
      if (defined($words[$j]) and $words[$j] =~ /_NN/) { 


#PRINT word and sentence: 
       print "**",split(/_\S+/,$words[$j]),"**", "\n"; 
       print split(/_\S+/,$sentences[$i]), "\n" 

      } 
     } ## put print sentences here to print each sentence after all the nouns inside 
    } 
} 

close $tag_corpus  || die "Can't close $tag_corpus: $!";