diff miranda2asko.pl @ 0:3f6cdc878f35 draft

planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/miranda2asko commit bd6737d0fba64ed6e7d3be5267868942674696ea

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/miranda2asko.pl	Thu Apr 12 10:53:04 2018 -0400
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+
+my $miranda=shift;
+open MIRANDA, $miranda or die "failed to open $miranda\n";
+
+print "mirna\ttargets\@mRNA\tscore\tenergy\talignment length\tglobal coverage\tseed coverage\n";
+
+while (<MIRANDA>) {
+  chomp;
+  my ($mirna, $target, $score, $energy,$pos1, $pos2,$alnlength, $glcov, $seedcov)=split "\t";
+  $mirna=~ s/^>//;
+  $target=~s/_UTR3$//;
+  $glcov=~ s/\%$//;
+  $seedcov=~ s/\%$//;
+  print join ("\t", $mirna, $target, $score, $energy,$alnlength, $glcov, $seedcov), "\n";
+}