如何用perl从一句英文段落中提取单词？

mingoing

给定英文文本(text)，提取其包含的单词。本人新手谢谢帮忙啊，不用详细程序，要大概思路即可
比如：… some 8,000 college graduates have taken up positions in rural Beijing.
The rising interest also stems from a new government policy…He describes the report as a "credible and comprehensive assessment."

yestreenstars

1. egrep -o '\w+'

复制代码

1. perl -lne '1 while(/(\w+)(?{print $1})/g)'

复制代码

mingoing

啥意思啊。太高深了吧回复 2# yestreenstars


   

mingoing

我用split行吗？怎么把标点剔除掉，像这样的  “  assessment."   ”  是不行的。。

1. #!/usr/bin/perl
   
2. use strict;
   
3. open Cfile,"tp6-6.txt";
   
4. open OOV2,">oov2.txt";
   
5. while(<Cfile>){
   
6.         chomp;
   
7.         my @sentence=split /\s+/,$_;
   
8.         print @sentence;
   
9. }

复制代码

yestreenstars

你酱做还得把所有标点符号全部列出来，不麻烦？

zhlong8

严格来说还有连字符，和缩写的 . 呢