Mercurial > repos > dereeper > pgap
comparison PGAP_wrapper2.pl @ 1:6d3580552457 draft
Uploaded
author | dereeper |
---|---|
date | Thu, 24 Jun 2021 14:53:55 +0000 |
parents | 83e62a1aeeeb |
children | 041355b97140 |
comparison
equal
deleted
inserted
replaced
0:83e62a1aeeeb | 1:6d3580552457 |
---|---|
36 my @list; | 36 my @list; |
37 mkdir("tmpdir$$"); | 37 mkdir("tmpdir$$"); |
38 my @gene_files = split(/,/,$genes); | 38 my @gene_files = split(/,/,$genes); |
39 my $n = 0; | 39 my $n = 0; |
40 foreach my $gene_file(@gene_files){ | 40 foreach my $gene_file(@gene_files){ |
41 my $particule = $names[$i]; | 41 my $particule = $names[$n]; |
42 system("cp $gene_file tmpdir$$/$particule.nuc"); | 42 system("cp $gene_file tmpdir$$/$particule.nuc"); |
43 $n++; | 43 $n++; |
44 } | 44 } |
45 $n = 0; | 45 $n = 0; |
46 my @protein_files = split(/,/,$proteins); | 46 my @protein_files = split(/,/,$proteins); |