Mercurial > repos > romaingred > pirna_pipeline

comparison bin/piPipe.pl @ 25:f5da139a09b4 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author romaingred
date Mon, 23 Oct 2017 08:16:37 -0400
parents 7dd78ad2875f
children 201e27bab5a0
comparison
equal deleted inserted replaced
24:08bbde9d0c9d 25:f5da139a09b4
66 dircopy( $FindBin::Bin.'/js', $dir.'/js' ); 66 dircopy( $FindBin::Bin.'/js', $dir.'/js' );
67 67
68 my $file = $dir.'report.txt'; 68 my $file = $dir.'report.txt';
69 open my $report, '>', $file or die "Cannot open $file $!\n"; 69 open my $report, '>', $file or die "Cannot open $file $!\n";
70 70
71 my %toBuild; 71 my @toBuild = ( [$build_index, \$ref], [$build_tRNAs, \$tRNAs], [$build_rRNAs, \$rRNAs], [$build_snRNAs, \$snRNAs], [$build_miRNAs, \$miRNAs], [$build_exons, \$exons], [$build_TE, \$TE] );
72 @toBuild{ ( $ref, $tRNAs, $rRNAs, $snRNAs, $miRNAs, $exons, $TE ) } = ( $build_index, $build_tRNAs, $build_rRNAs, $build_snRNAs, $build_miRNAs, $build_exons, $build_TE ) ;
73 to_build ( \%toBuild, $report ); 72 to_build ( \%toBuild, $report );
74 73
75 my $proc_child = ceil($max_procs / scalar(@fastq)); 74 my $proc_child = ceil($max_procs / scalar(@fastq));
76 my $proc_grand_child = ceil($proc_child/4); 75 my $proc_grand_child = ceil($proc_child/4);
77 my $pm = Parallel::ForkManager->new($max_procs); 76 my $pm = Parallel::ForkManager->new($max_procs);