comparison FunAnn/annotate.pl @ 1:9b8afa0b6da4 draft

Uploaded
author elixir-it
date Tue, 27 Oct 2020 14:43:15 +0000
parents 1886293c2243
children
comparison
equal deleted inserted replaced
0:1886293c2243 1:9b8afa0b6da4
4 4
5 { 5 {
6 system("wget -i https://raw.githubusercontent.com/matteo14c/CorGAT_galaxy/dev/ann.txt"); 6 system("wget -i https://raw.githubusercontent.com/matteo14c/CorGAT_galaxy/dev/ann.txt");
7 system("gzip -d GCF_009858895.2_ASM985889v3_genomic.fna.gz"); 7 system("gzip -d GCF_009858895.2_ASM985889v3_genomic.fna.gz");
8 } 8 }
9
10
11
12 9
13 $gen_code="genetic_code"; 10 $gen_code="genetic_code";
14 die("need genetic code file in the current folder\n") unless -e "genetic_code"; 11 die("need genetic code file in the current folder\n") unless -e "genetic_code";
15 open(IN,$gen_code); 12 open(IN,$gen_code);
16 while(<IN>) 13 while(<IN>)
17 { 14 {
18 ($triplet,$oneL)=(split()); 15 ($triplet,$oneL)=(split());
19 $code{$triplet}=$oneL; 16 $code{$triplet}=$oneL;
20 } 17 }
21 18
22 $genome="GCF_009858895.2_ASM985889v3_genomic.fna"; 19 $genome="GCA_009858895.3_ASM985889v3_genomic.fna";
23 die("need reference genome file in the current folder\n") unless -e "GCF_009858895.2_ASM985889v3_genomic.fna"; 20 die("need reference genome file in the current folder\n") unless -e "GCA_009858895.3_ASM985889v3_genomic.fna";
24 open(IN,$genome); 21 open(IN,$genome);
25 while(<IN>) 22 while(<IN>)
26 { 23 {
27 next if $_=~/^>/; 24 next if $_=~/^>/;
28 chomp; 25 chomp;