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) <[email protected]> wrote:
> 用perl处理，
> 举个例子，
> 你可以准备一个hash，带2个key，
> 一个key (line)记录每一行的内容，一个key (count)记录该行出现的次数。
>
> 然后，把文件每一行，记录到hash里面，
> 记录的时侯，如果行的内容重复，则该行的次数＋＋。
>
> 这样，当文件全部带入到hash之后，
> 你只需要打印出key（count）大于1的key（line）的value即可。
> 如何？
>
> 2012/4/25 Gary Jsz <[email protected]>
>
>>
>> 我想使用perl的逻辑来处理，比如先读取文件的第一行，然后和后面几行比较，如果有相同，打印，如果没有相同的，那么读取第二行，再与后面的几行比较，以此类推，直到最后。
>>
>> 但是，这个逻辑我不会做。
>>
>> 在 2012年4月25日 上午10:52，Simon Xu <[email protected]>写道：
>>
>> sort file | uniq -cd
>>>
>>> 2012/4/25 Gary Jsz <[email protected]>
>>>
>>>> 大家好！
>>>>
>>>> 我有一个文本，内容如下：
>>>> 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 讨论组”论坛。
>>>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
>>>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
>>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>>>
>>>
>>> --
>>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
>>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
>>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>>
>>
>>
>>
>> --
>> [email protected]
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>
>
>
>
> --
> +++++++_++++++++
> 李 镇
> DeNA China 智能手机事业部
> (86-21-6267-6611-137)
>
> 大家一起来玩［梦宝谷］吧！
> http://mobage.cn <http://mobage.com.cn>
>
> ++++++ *-* +++++++
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
