使用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: $!";