Mercurial > repos > romaingred > pirna_pipeline

comparison bin/piPipe.pl @ 26:201e27bab5a0 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:19:47 -0400
parents f5da139a09b4
children fe5a96def00e
comparison
equal deleted inserted replaced
25:f5da139a09b4 26:201e27bab5a0
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 = ( [$build_index, \$ref], [$build_tRNAs, \$tRNAs], [$build_rRNAs, \$rRNAs], [$build_snRNAs, \$snRNAs], [$build_miRNAs, \$miRNAs], [$build_exons, \$exons], [$build_TE, \$TE] ); 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 to_build ( \%toBuild, $report ); 72 to_build ( \@toBuild, $report );
73 73
74 my $proc_child = ceil($max_procs / scalar(@fastq)); 74 my $proc_child = ceil($max_procs / scalar(@fastq));
75 my $proc_grand_child = ceil($proc_child/4); 75 my $proc_grand_child = ceil($proc_child/4);
76 my $pm = Parallel::ForkManager->new($max_procs); 76 my $pm = Parallel::ForkManager->new($max_procs);
77 my $pm2 = Parallel::ForkManager->new($proc_grand_child); 77 my $pm2 = Parallel::ForkManager->new($proc_grand_child);