Mercurial > repos > dereeper > pangenome_explorer

comparison Perl/generateConfig.pl @ 14:5a5c9a6b047b draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author dereeper
date Tue, 10 Dec 2024 16:20:53 +0000
parents e42d30da7a74
children
comparison
equal deleted inserted replaced
13:152d7c43478b 14:5a5c9a6b047b
15 15
16 $list =~s/NZ_//g; 16 $list =~s/NZ_//g;
17 my @list_ids = split(/,/,$list); 17 my @list_ids = split(/,/,$list);
18 18
19 my %data = (); 19 my %data = ();
20 foreach my $id(@list_ids){ 20 # case list of accessions
21 push @{$data{"ids"}}, "$id"; 21 if ($list ne 'None'){
22 foreach my $id(@list_ids){
23 push @{$data{"ids"}}, "$id";
24 }
22 } 25 }
23 # case fasta+gff 26 # case fasta+gff
24 if ($zip ne "None" && $zip_fasta ne "None"){ 27 elsif ($zip ne "None" && $zip_fasta ne "None"){
25 system("rm -rf $zip.genomeszip"); 28 system("rm -rf $zip.genomeszip");
26 mkdir("$zip.genomeszip"); 29 mkdir("$zip.genomeszip");
27 chdir("$zip.genomeszip"); 30 chdir("$zip.genomeszip");
28 system("cp -rf $zip ./genomes.zip"); 31 system("cp -rf $zip ./genomes.zip");
29 system("cp -rf $zip_fasta ./fasta_genomes.zip"); 32 system("cp -rf $zip_fasta ./fasta_genomes.zip");