[已解决]Perl删除重复行的时候如何不打乱原有顺序？ - Perl - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS - Powered by Discuz!

批处理之家 » Perl » [已解决]Perl删除重复行的时候如何不打乱原有顺序？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 12

帖子: 14803
积分: 45981
技术: 848
捐助: 745
注册时间: 2008-6-9

1楼 跳转到 »

发表于 2011-6-5 00:01 | 显示全部帖子

use strict;
use warnings;
open(IN,"a.txt");
open(OUT,">b.txt");
my %hash = ();
while (<IN>) {
    if (!$hash{$_}) {
        print OUT;
        $hash{$_} = 1;
    }
}
close IN;
close OUT;
复制代码

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 12

帖子: 14803
积分: 45981
技术: 848
捐助: 745
注册时间: 2008-6-9

2楼

发表于 2011-6-5 00:02 | 显示全部帖子

perl -ane "if(++$a{$_}==1){print}" a.txt >b.txt
复制代码

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 12

帖子: 14803
积分: 45981
技术: 848
捐助: 745
注册时间: 2008-6-9

3楼

发表于 2011-6-6 21:35 | 显示全部帖子

4# DAIC

Perl命令行应用介绍
http://bbs.bathome.net/thread-12716-1-1.html

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 12

帖子: 14803
积分: 45981
技术: 848
捐助: 745
注册时间: 2008-6-9

4楼

发表于 2011-6-7 00:33 | 显示全部帖子

6# sxw

最后一行ddd行尾的空格删掉，下面在加一个空行即可。

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html