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);