use strict; print ""; my ($alg_file,$a_file,$b_file)=@ARGV; my %a; my %b; open (A, $a_file); while () { if (/^\[\d+-(\d+)/) { $a{$1}=$_; } } open (B, $b_file); while () { if (/^\[\d+-(\d+)/) { $b{$1}=$_; } } if ($alg_file eq "NONE") { foreach my $aa (sort {$a <=> $b} keys %a) { print ""; } } else { open (ALG, $alg_file); while () { print ""; } } print "
"; print $a{$aa}, "
"; print "		"; print $b{$aa}, "
"; print "
"; my ($as,$bs) = split; my @a=split(/,/,$as); foreach my $a (@a) { print $a{$a}, "
"; } print "		"; my @b=split(/,/,$bs); foreach my $b (@b) { print $b{$b}, "
"; } print "
";