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

非常感谢，原来看到了才知道这么简单，而自己怎么都想不出来，受教了。

在 2012年4月25日 上午11:53，Robin Lee <robinlee.sysu@gmail.com>写道：

my %line_count;
while (<>) {
    $line_count{$_}++;
}

while (my ($line, $count) = each %line_count) {
    print "$count: $line" if $count > 1;

}

On Wed, Apr 25, 2012 at 11:51 AM, 李 �(Zhen Li) <li.zhen@dena.jp> wrote:

用perl处理，

举个例子，

你可以准备一个hash，带2个key，

一个key (line)记录每一行的内容，一个key (count)记录该行出现的次数。

然后，把文件每一行，记录到hash里面，

记录的时侯，如果行的内容重复，则该行的次数＋＋。

这样，当文件全部带入到hash之后，

你只需要打印出key（count）大于1的key（line）的value即可。

如何？

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

我想使用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 访问此网上论坛。

--

+++++++_++++++++

李 镇

DeNA China 智能手机事业部

(86-21-6267-6611-137)

大家一起来玩［梦宝谷］吧！

http://mobage.cn

++++++ *-* +++++++

--
您收到此邮件是因为您订阅了 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 访问此网上论坛。