【答案】应助回帖

#!/usr/bin/perl -w use strict; ################################################################################ unless(2==@ARGV) { &usage; exit; } ################################################################################ my($infile,$result)=@ARGV; my(@info,$i,%store,%print,$id); ################################################################################ open IN,"<$infile" or die "Read $infile $!\n"; while(<IN>) { chomp; @info=split; push(@{$store{$info[1]}},$info[0]); } close IN; ################################################################################ open OT,">$result" or die "Write $result $!\n"; foreach $i(sort keys %store) { %print=(); print OT $i,"\t"; $print{$i}='Y'; &fathers($i); print OT "\n"; } close OT; ################################################################################ sub fathers { my($ID)=@_; my($id,$i,$j); for($i=0;$i<@{$store{$ID}};++$i) { $id=$store{$ID}[$i]; next if(defined $print{$id}); print OT $id,";"; $print{$id}='Y'; next unless(defined $store{$id}); &fathers($id); print OT "\t"; } } ################################################################################ sub usage { print STDERR "\n Description\n Start by Sat Jul 6 14:03:36 2013\n This script is to print the father of the xxx format\n Usage: \$perl $0 [input.txt] [output]\n  \n" }