comparison generateConfig.pl @ 21:f6afd1efb86b draft default tip

Uploaded
author dereeper
date Thu, 27 Feb 2025 17:57:52 +0000
parents 1e0698511c9f
children
comparison
equal deleted inserted replaced
20:e23149f1f55c 21:f6afd1efb86b
46 } 46 }
47 } 47 }
48 } 48 }
49 close(LS); 49 close(LS);
50 50
51 open(LS,"ls *fasta |"); 51 open(LS,"ls *fasta.gz |");
52 while(my $line = <LS>){ 52 while(my $line = <LS>){
53 chomp($line); 53 chomp($line);
54 my $concat = "$zip.genomeszip/".$line; 54 my $concat = "$zip.genomeszip/".$line;
55 if ($line =~/(.*)\.fasta/){ 55 if ($line =~/(.*)\.fasta\.gz/){
56 my $name = $1; 56 my $name = $1;
57 if ($concat =~/\w+/){ 57 if ($concat =~/\w+/){
58 $data{"input_genomes"}{"$name"}{"fasta"} = "$concat"; 58 $data{"input_genomes"}{"$name"}{"fasta"} = "$concat";
59 } 59 }
60 } 60 }