xlfj1205

摘要： ^\(.*\)\t\(.*\)\t\S\+\t\S\+\(\n.*\)\+\n\2\t\1 #!/usr/bin/perl use warnings; use strict; open IN,"; my %name_hash; while(){ chomp; my @line_list=split/\t/; $name_hash{"$line_list[0]$lin... 阅读全文