perl脚本去除文件中重复数据

perl 2017-07-28

今天第一天写博客,写的不好请大家多多指教,废话不多说了,干货送上:

#############################################################

#!/usr/bin/perl
use warnings;
use strict;
my %hash;
my $source_file=$ARGV[0]; #输入文件
my $dest_file = $ARGV[1];#输出文件
open (FILE,"<$source_file") or die "Cannot open file $!\n"; #打开文件
open (SORTED,">$dest_file") or die "Cannot open file $!\n";
while(defined (my $line = <FILE>))
{#从文件中取出要去重的数据
        chomp($line);#去除空格
     #$line=~ s/[\r\n]+//mg;#取出换行符
        $hash{$line} += 1;
}
foreach my $k (keys %hash) {
        print SORTED "$k\n";#改行打印出列和该列出现的次数到目标文件
}
close (FILE);
close (SORTED);
#############################################################

将这个#号中的内容添加好以后使用chmod +x 文件名加上权限,使用“./data.pl 源文件 目标文件”命令运行即可


本文由 admin 创作,采用 知识共享署名 3.0,可自由转载、引用,但需署名作者且注明文章出处。

7 条评论

  1. bzcigftr
    bzcigftr

    perl脚本去除文件中重复数据 - 青花瓷
    [url=http://www.g14lb98o6jmiuxy12m084x41l836di6ds.org/]ubzcigftr[/url]
    abzcigftr
    bzcigftr http://www.g14lb98o6jmiuxy12m084x41l836di6ds.org/

  2. twmdcyrv
    twmdcyrv

    perl脚本去除文件中重复数据 - 青花瓷
    atwmdcyrv
    twmdcyrv http://www.g25z1yf11e8i6hhjq89wzio45198tm34s.org/
    [url=http://www.g25z1yf11e8i6hhjq89wzio45198tm34s.org/]utwmdcyrv[/url]

  3. thhrhdqvm
    thhrhdqvm

    perl脚本去除文件中重复数据 - 青花瓷
    [url=http://www.g57i6p589zd6ex49m4h0bps8h43i49gvs.org/]uthhrhdqvm[/url]
    athhrhdqvm
    thhrhdqvm http://www.g57i6p589zd6ex49m4h0bps8h43i49gvs.org/

  4. xmsjhjxcc
    xmsjhjxcc

    perl脚本去除文件中重复数据 - 青花瓷
    axmsjhjxcc
    [url=http://www.gd9lb5fw3xrv8u24187us84oed5045v6s.org/]uxmsjhjxcc[/url]
    xmsjhjxcc http://www.gd9lb5fw3xrv8u24187us84oed5045v6s.org/

  5. nfcpjmtwrm
    nfcpjmtwrm

    perl脚本去除文件中重复数据 - 青花瓷
    nfcpjmtwrm http://www.g678qpa13pwr8gfuq34k373bo0f391k0s.org/
    anfcpjmtwrm
    [url=http://www.g678qpa13pwr8gfuq34k373bo0f391k0s.org/]unfcpjmtwrm[/url]

  6. cialis
    cialis

    tadalafil generico y original [url=http://cialisle.com/]buy generic
    cialis[/url] tadalafil for the weekend.

  7. viagra generic name
    viagra generic name

    what is the current price for sildenafil
    http://viagrabs.com Buy Viagra. can i take sildenafil to bali.

添加新评论