如何提取單詞

mingoing

各位大神我應(yīng)該如何提取其中只有單詞的行，并把重復(fù)的單詞合為一個。{: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
    

復(fù)制代碼

1. apple
   
2. banana
   
3. cherry

復(fù)制代碼

mingoing

3Q3Q

TrishaTie

回復(fù) 1# mingoing
樓主，這是.mlf 文件吧？

   

mingoing

嗯哪{:3_182:}

yestreenstars

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

復(fù)制代碼

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

復(fù)制代碼

感謝@pitonas提供測試文本~