perl去除重复内容的脚本代码(重复行+数组重复字段)(怎么把perl删除干净)硬核推荐

随心笔谈11个月前发布 admin
110 0

#!/usr/bin/perl

# Author :CaoJiangfeng

# Date:2011-09-28

# Version :1.0

use warnings;

use strict;

my %hash;

my $script=$0; # Get the script name

sub usage

{

        printf(“Usage:\n”);

        printf(“perl $script <source_file> <dest_file>\n”);

}

# If the number of parameters less than 2 ,exit the script

if ( $#ARGV+1 < 2) {

        &usage;

        exit 0;

}

my $source_file=$ARGV[0]; #File need to remove duplicate rows

my $dest_file=$ARGV[1]; # File after remove duplicates rows

open (FILE,”<$source_file”) or die “Cannot open file $!\n”;

open (SORTED,”>$dest_file”) or die “Cannot open file $!\n”;

while(defined (my $line=))

{

        chomp($line);

        $hash{$line} +=1;

        # print “$line,$hash{$line}\n”;

}

foreach my $k (keys %hash) {

        print SORTED “$k,$hash{$k}\n”;#改行打印出列和该列出现的次数到目标文件

}

close (FILE);

close (SORTED);

© 版权声明

相关文章