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

回复