Mercurial > repos > romaingred > pirna_pipeline

comparison bin/piPipe.pl @ 33:46d7549c1a05 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author romaingred
date Tue, 28 Nov 2017 09:08:13 -0500
parents 241aa6141cac
children 67edc34cf0ef
comparison
equal deleted inserted replaced
32:0cffda6c3d1a 33:46d7549c1a05
245 if ( $Pcheck eq 'true' ) 245 if ( $Pcheck eq 'true' )
246 { 246 {
247 my $ppp = $group_dir.'PPPartners/'; mkdir $ppp; 247 my $ppp = $group_dir.'PPPartners/'; mkdir $ppp;
248 print $report "ping_pong_partners $group_dir/piRNAs/TEs.sam $ppp\n"; 248 print $report "ping_pong_partners $group_dir/piRNAs/TEs.sam $ppp\n";
249 ping_pong_partners ( $group_dir.'TEs.fai', $group_dir.'piRNAs/piRNAs-TEs_sorted.bam', $ppp, $pi_min ); 249 ping_pong_partners ( $group_dir.'TEs.fai', $group_dir.'piRNAs/piRNAs-TEs_sorted.bam', $ppp, $pi_min );
250 my $ppp_page = $dir.$fastq_n[$child].'-bonafide_reads-PPP.html'; 250 my $ppp_page = $dir.$fastq_n[$child].'-piRNAs-PPP.html';
251 ppp_page ( $group_dir, $ppp_page, \@fastq_n, $fastq_n[$child], $ppp, $dir ); 251 ppp_page ( $group_dir, $ppp_page, \@fastq_n, $fastq_n[$child], $ppp, $dir );
252 } 252 }
253 253
254 #HTML Main Webpage 254 #HTML Main Webpage
255 my $index_page = $dir.$fastq_n[$child].'.html'; 255 my $index_page = $dir.$fastq_n[$child].'.html';