Re: [PerlChina] 请教一个逻辑处理问题

我想使用perl的逻辑来处理，比如先读取文件的第一行，然后和后面几行比较，如果有相同，打印，如果没有相同的，那么读取第二行，再与后面的几行比较，以此类推，直到最后。

但是，这个逻辑我不会做。

在 2012年4月25日 上午10:52，Simon Xu <happyslowly@gmail.com>写道：

sort file | uniq -cd

2012/4/25 Gary Jsz <gary.jsz@gmail.com>

大家好！

  我有一个文本，内容如下：

china  abc  unix  https://www.linuxsir.org

AcceptEnv LANG LC_CTYPE LC_NUMERIC LC_TIME LC_COLLATE LC_MONETARY LC_MESSAGES 

AcceptEnv LC_PAPER LC_NAME LC_ADDRESS LC_TELEPHONE LC_MEASUREMENT 

AcceptEnv LC_IDENTIFICATION LC_ALL

# Example of overriding settings on a per-user basis

#Match User anoncvs

#       X11Forwarding no

#       AllowTcpForwarding no

#       ForceCommand cvs server

AcceptEnv LC_IDENTIFICATION LC_ALL

china  abc  unix  https://www.linuxsir.org

我想查找这个文本的内容是否有重复行，如果有，就打印出来，并标注有几条重复的。

这个应该如何来做？

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
gary.jsz@gmail.com

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。