怎么這里面去掉重復(fù)的字符串

mingoing

問個比較簡單的問題，怎么把下面文本中重復(fù)的字符串去掉，只保留一個。
SUE
GET
IN
THERE
AND
GET
NEXT
TO
THE
WORD
PROCESSOR
AND
START
TO
WRITE
YOU
DO
HAVE
TO
SIT
DOWN
AND
MAKE
WORDS

pitonas

{:2_172:}

1. #!/usr/bin/perl
   
2. 
   
3. my %dup;
   
4. 
   
5. while (<DATA>) {
   
6.     print if !$dup{$_}++;
   
7. }
   
8. 
   
9. __DATA__
   
10. SUE
    
11. GET
    
12. IN
    
13. THERE
    
14. AND
    
15. GET
    
16. NEXT
    
17. TO
    
18. THE
    
19. WORD
    
20. PROCESSOR
    
21. AND
    
22. START
    
23. TO
    
24. WRITE
    
25. YOU
    
26. DO
    
27. HAVE
    
28. TO
    
29. SIT
    
30. DOWN
    
31. AND
    
32. MAKE
    
33. WORDS
    

復(fù)制代碼

mingoing

牛人，又學(xué)一招{:2_172:}

yestreenstars

1. perl -ne 'print if !$h{$_}++'

復(fù)制代碼