peruse是什么意思 用perl语言，把一个文件里面的一部分内容写到另一个文件里的方法。谢谢？

用perl语言，把一个文件里面的一部分内容写到另一个文件里的方法。谢谢？如果只要求倒数第二列不重复，则：；！/usr/bin/Perl#测试脉冲StrictMy%keyswhile（）{my@ary=

用perl语言，把一个文件里面的一部分内容写到另一个文件里的方法。谢谢？

如果只要求倒数第二列不重复，则：；！/usr/bin/Perl#测试脉冲StrictMy%keyswhile（）{my@ary=split/T/if（！$keys{$ary[-2]}{$keys{$ary[-2]}=1 print“$ary[-2]T$ary[-1]”}

如果要求两列不重复，]；/usr/bin/perluse strictMy%keyswhile（）{my@ary=split/T/if（！$keys{$ary[-2]。 ". ". $ary[-1]}{$keys{$ary[-2]。 ". ". $ary[-1]}=1打印“$ary[-2]T$ary[-1]”}

用法：测试.pl目标.txt

用给定数据测试的运行结果如下：

中文XXXXX 1汉字1汉字XXXXX 2汉字1汉字XXXXXX 3汉字1汉字XXXXX 4汉字2汉字5汉字2