假如有这样的一段序列:
1 2
1 2
2 1
1 3
1 4
1 5
4 1
我们需要得到如下的结果:
1 3
1 5
2 1
4 1
那么,请借助以下的perl脚本来实现。
代码一:
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 = <FILE>))
{
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);
代码三:
通过perl脚本,删除数据组中重复的字段
新闻热点
疑难解答