view miranda2asko.pl @ 0:3f6cdc878f35 draft

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

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";
}