用perl語言，把一個文件里面的一部分內(nèi)容寫到另一個文件里的方法。謝謝？如果只要求倒數(shù)第二列不重復(fù)，則：；！/usr/bin/Perl#測試脈沖StrictMy%keyswhile（）{my@ary=

用perl語言，把一個文件里面的一部分內(nèi)容寫到另一個文件里的方法。謝謝？

如果只要求倒數(shù)第二列不重復(fù)，則：；！/usr/bin/Perl#測試脈沖StrictMy%keyswhile（）{my@ary=split/T/if（！$keys{$ary[-2]}{$keys{$ary[-2]}=1 print“$ary[-2]T$ary[-1]”}

如果要求兩列不重復(fù)，]；/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目標(biāo).txt

用給定數(shù)據(jù)測試的運(yùn)行結(jié)果如下：

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