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{