annotate mirdeep2/mapper_wrapper.pl @ 1:798fe7ba8b5e default tip

uploading ucsc browser species file
author nikhil-joshi
date Mon, 19 Sep 2011 19:07:09 -0400
parents 5b9519f4b165
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
1 #!/usr/bin/perl
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
2
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
3 $bowtie_index_name = $ARGV[0];
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
4 $output_arf = $ARGV[1];
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
5 $bowtie_files_path = $ARGV[2];
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
6 $options = join (" ", @ARGV[3..$#ARGV]);
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
7
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
8 $basename = `basename $bowtie_index_name`;
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
9 chomp $basename;
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
10
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
11 system ("mapper.pl $options -p $bowtie_files_path/$basename -t $output_arf 2> /dev/null");
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
12
5b9519f4b165 Upload first commmit
nikhil-joshi
parents:
diff changeset
13 if (-s $output_arf == 0) {die "No reads aligned to the reference.";}