comparison quantify.pl @ 44:0c4e11018934 draft

Uploaded
author big-tiandm
date Thu, 30 Oct 2014 21:29:19 -0400
parents a79212816cbc
children ca05d68aca13
comparison
equal deleted inserted replaced
43:4c0b1a94b882 44:0c4e11018934
420 close IN; 420 close IN;
421 } 421 }
422 sub mapping{ 422 sub mapping{
423 my $err; 423 my $err;
424 ## build bowtie index 424 ## build bowtie index
425 print STDERR "building bowtie index\n"; 425 #print STDERR "building bowtie index\n";
426 $err = `bowtie-build $pre_file_name miRNA_precursor`; 426 $err = `bowtie-build $pre_file_name miRNA_precursor`;
427 427
428 ## map mature sequences against precursors 428 ## map mature sequences against precursors
429 print STDERR "mapping mature sequences against index\n"; 429 #print STDERR "mapping mature sequences against index\n";
430 $err = `bowtie -p $threads -f -v 0 -a --best --strata --norc miRNA_precursor $mature mature_mapped.bwt`; 430 $err = `bowtie -p $threads -f -v 0 -a --best --strata --norc miRNA_precursor $mature > mature_mapped.bwt 2> run.log`;
431 431
432 ## map reads against precursors 432 ## map reads against precursors
433 print STDERR "mapping read sequences against index\n"; 433 #print STDERR "mapping read sequences against index\n";
434 $err=`bowtie -p $threads -f -v $mismatch -a --best --strata --norc miRNA_precursor $read --al mirbase_mapped.fa --un mirbase_not_mapped.fa read_mapped.bwt `; 434 $err=`bowtie -p $threads -f -v $mismatch -a --best --strata --norc miRNA_precursor $read --al mirbase_mapped.fa --un mirbase_not_mapped.fa > read_mapped.bwt 2> run.log`;
435 435
436 } 436 }
437 437
438 sub subseq{ 438 sub subseq{
439 my $seq=shift; 439 my $seq=shift;