怎么这里面去掉重复的字符串

mingoing

问个比较简单的问题，怎么把下面文本中重复的字符串去掉，只保留一个。
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
    

复制代码

mingoing

牛人，又学一招{:2_172:}

yestreenstars

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

复制代码