comparison bin/piPipe.pl @ 23:7dd78ad2875f draft

Uploaded
author romaingred
date Fri, 20 Oct 2017 09:33:54 -0400
parents 2bd100775c36
children f5da139a09b4
comparison
equal deleted inserted replaced
22:b9cf69322742 23:7dd78ad2875f
258 main_page ( $gen_dir, $index_page, \@fastq_n, $fastq_n[$child], $ma, $ma_uni, $dir ); 258 main_page ( $gen_dir, $index_page, \@fastq_n, $fastq_n[$child], $ma, $ma_uni, $dir );
259 copy ($index_page, $html_out) if $child == 0; 259 copy ($index_page, $html_out) if $child == 0;
260 #HTML Menu 260 #HTML Menu
261 my $menu_page = $dir.$fastq_n[$child].'-sub.html'; 261 my $menu_page = $dir.$fastq_n[$child].'-sub.html';
262 menu_page ( $group_dir, $menu_page, \@fastq_n, $fastq_n[$child], $min, $max, $si_min, $si_max, $pi_min, $pi_max, $dir ); 262 menu_page ( $group_dir, $menu_page, \@fastq_n, $fastq_n[$child], $min, $max, $si_min, $si_max, $pi_min, $pi_max, $dir );
263 263 unlink glob "$group_dir*.sam"; unlink glob "$group_dir*.fastq";
264 $pm->finish(); # pass an exit code to finish 264 $pm->finish(); # pass an exit code to finish
265 } 265 }
266 $pm->wait_all_children; 266 $pm->wait_all_children;
267 267
268 print $report "Job done!\n"; 268 print $report "Job done!\n";