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

回复