Mercurial > repos > elixir-it > corgat_funann
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; |