Question

如何用perl 删除文件中的一段内容

Answer 1

如果只要求倒数第二列不重复，则： #!/usr/bin/perl# test.pluse strict;my %keys;while() { my @ary = split /\t/; if(! $keys{$ary[-2]}) { $keys{$ary[-2]} = 1; print "$ary[-2]\t$ary[-1]"; }}如果要求两列都不重复