Mercurial > repos > simon-gladman > trimmomatic_032
comparison trimmomatic_wrapper.pl @ 14:cb56fdcbe0a5 draft default tip
Uploaded
| author | simon-gladman |
|---|---|
| date | Thu, 10 Jul 2014 14:38:53 -0400 |
| parents | e99104027742 |
| children |
comparison
equal
deleted
inserted
replaced
| 13:476184b9b2f7 | 14:cb56fdcbe0a5 |
|---|---|
| 43 my $numthreads = $stuff{"threads"}; | 43 my $numthreads = $stuff{"threads"}; |
| 44 | 44 |
| 45 | 45 |
| 46 my $cmd = "java -cp $jar org.usadellab.trimmomatic.Trimmomatic"; | 46 my $cmd = "java -cp $jar org.usadellab.trimmomatic.Trimmomatic"; |
| 47 | 47 |
| 48 if($stuff{"paired"} eq "True"){ | 48 if($stuff{"paired"} eq "single"){ |
| 49 $cmd .= "PE"; | 49 $cmd .= "SE"; |
| 50 } | 50 } |
| 51 else { | 51 else { |
| 52 $cmd .= "SE"; | 52 $cmd .= "PE"; |
| 53 } | 53 } |
| 54 | 54 |
| 55 $cmd .= " -threads $numthreads"; | 55 $cmd .= " -threads $numthreads"; |
| 56 | 56 |
| 57 $cmd .= " -phred33" if($stuff{"phred"} eq "phred33"); | 57 $cmd .= " -phred33" if($stuff{"phred"} eq "phred33"); |
| 58 | 58 |
| 59 if($stuff{"log"} eq "True"){ | 59 if($stuff{"log"} eq "True"){ |
| 60 $cmd .= " -trimlog " . $stuff{"logfile"}; | 60 $cmd .= " -trimlog " . $stuff{"logfile"}; |
| 61 } | 61 } |
| 62 | 62 |
| 63 if($stuff{"paired"} eq "True"){ | 63 if($stuff{"paired"} ne "single"){ |
| 64 $cmd .= " " . join(" ",($stuff{"fwdfile"},$stuff{"revfile"},$stuff{"fwdpairs"},$fwdtemp,$stuff{"revpairs"},$revtemp)); | 64 $cmd .= " " . join(" ",($stuff{"fwdfile"},$stuff{"revfile"},$stuff{"fwdpairs"},$fwdtemp,$stuff{"revpairs"},$revtemp)); |
| 65 } | 65 } |
| 66 else { | 66 else { |
| 67 $cmd .= " " . join(" ",($stuff{"fwdfile"},$stuff{"singles"})); | 67 $cmd .= " " . join(" ",($stuff{"fwdfile"},$stuff{"singles"})); |
| 68 } | 68 } |
| 82 $cmd .= " " .join(":",("MINLEN",$stuff{"minlen"})); | 82 $cmd .= " " .join(":",("MINLEN",$stuff{"minlen"})); |
| 83 | 83 |
| 84 print "Command:\t$cmd\n"; | 84 print "Command:\t$cmd\n"; |
| 85 | 85 |
| 86 if(system($cmd) == 0){ | 86 if(system($cmd) == 0){ |
| 87 if ($stuff{"paired"} eq "True"){ | 87 if ($stuff{"paired"} ne "single"){ |
| 88 my $catcmd = "cat $fwdtemp $revtemp > " . $stuff{"singles"}; | 88 my $catcmd = "cat $fwdtemp $revtemp > " . $stuff{"singles"}; |
| 89 system($catcmd) == 0 or die "Something went wrong with the cat command $!"; | 89 system($catcmd) == 0 or die "Something went wrong with the cat command $!"; |
| 90 } | 90 } |
| 91 } | 91 } |
| 92 else{ | 92 else{ |
