如何提取单词

mingoing

各位大神我应该如何提取其中只有单词的行，并把重复的单词合为一个。{:3_196:}

pitonas

{:2_172:}

1. #!/usr/bin/perl -w
   
2. my %words;
   
3. while (<DATA>) {
   
4.     next if /^\W/;
   
5.     my ($w) = /(\w+)/;
   
6.     print if !$words{$w}++;
   
7. }
   
8. __DATA__
   
9. apple
   
10. #wer
    
11. !qw
    
12. $dd
    
13. apple
    
14. banana
    
15. ###w
    
16. cherry
    
17. cherry
    
18. !!123
    
19. !~sa
    

复制代码

1. apple
   
2. banana
   
3. cherry

复制代码

mingoing

3Q3Q

TrishaTie

回复 1# mingoing
楼主，这是.mlf 文件吧？

   

mingoing

嗯哪{:3_182:}

yestreenstars

1. perl -lne 'chomp;$h{$_}++ if /^\w+$/;END{print for sort keys %h}'

复制代码

1. perl -lne 'chomp;print if /^\w+$/ && !$h{$_}++'

复制代码

感谢@pitonas提供测试文本~