亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: 怎么這里面去掉重復的字符串 [打印本頁]
作者: mingoing    時間: 2014-03-06 13:55
標題: 怎么這里面去掉重復的字符串
問個比較簡單的問題，怎么把下面文本中重復的字符串去掉，只保留一個。
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    時間: 2014-03-06 14:01
{:2_172:}
  1. #!/usr/bin/perl

  3. my %dup;

  5. while (<DATA>) {
  6.     print if !$dup{$_}++;
  7. }

  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    時間: 2014-03-06 14:18
牛人，又學一招{:2_172:}
作者: yestreenstars    時間: 2014-03-06 15:47
  1. perl -ne 'print if !$h{$_}++'
復制代碼




歡迎光臨 Chinaunix (http://72891.cn/) Powered by Discuz! X3.2