Mercurial > repos > genouest > miranda2asko

annotate miranda2asko.pl @ 0:268d52b03c4e draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
author genouest
date Thu, 12 Apr 2018 10:52:11 -0400
parents
children 43cbede36067
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
1 use strict;
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
2 use warnings;
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
3
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
4 my $miranda=shift;
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
5 open MIRANDA, $miranda or die "failed to open $miranda\n";
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
6
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
7 print "mirna\ttargets\@mRNA\tscore\tenergy\talignment length\tglobal coverage\tseed coverage\n";
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
8
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
9 while (<MIRANDA>) {
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
10 chomp;
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
11 my ($mirna, $target, $score, $energy,$pos1, $pos2,$alnlength, $glcov, $seedcov)=split "\t";
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
12 $mirna=~ s/^>//;
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
13 $target=~s/_UTR3$//;
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
14 $glcov=~ s/\%$//;
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
15 $seedcov=~ s/\%$//;
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
16 print join ("\t", $mirna, $target, $score, $energy,$alnlength, $glcov, $seedcov), "\n";
268d52b03c4e planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea
genouest
parents:
diff changeset
17 }