comparison mirdeep2/target_spy_wrapper.pl @ 0:5b9519f4b165

Upload first commmit
author nikhil-joshi
date Mon, 19 Sep 2011 19:04:41 -0400
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:5b9519f4b165
1 #!/usr/bin/perl
2
3 use File::Temp qw/ tempfile tempdir /;
4 use File::Copy qw/ copy /;
5 use Cwd;
6
7 $mirna_file = $ARGV[0];
8 $trans_file = $ARGV[1];
9 $targets = $ARGV[2];
10
11 # do all the dirty work in a temp directory
12 $cwd = cwd();
13 $tempdir = tempdir(CLEANUP => 1);
14
15 copy ("/opt/Bio/galaxy-dist/tools/mirdeep2/target_spy_wrapper.sh", $tempdir);
16 chdir ($tempdir);
17
18 $ret_ts = `sh target_spy_wrapper.sh $mirna_file $trans_file`;
19 if ($ret_ts ne "") {die "TargetSpy error"}
20 copy ("targets", $targets);
21
22 chdir($cwd);