Here's the output#!/usr/bin/perl use warnings; use strict; use File::Find; use Parallel::ForkManager; my @toUnlink; #ARRAY THAT IS NAUGHTY my $maxProcs = 3; my $pm = new Parallel::ForkManager($maxProcs); foreach my $keySets (keys %chunked){ foreach ( @{$chunked{$keySets}} ){ my $pid = $pm->start and next; my $cychpTxtFile = $fileManifest{$encryptKey}.".txt"; #Im not +showing you the whole script, but this works if ( -e $cychpTxtFile ) { push @toUnlink, $cychpTxtFile; # WHY WONT YOU WORK! print $cychpTxtFile."\n"; #PRINTS TO THE SCREEN } $pm->finish; } print @toUnlink."\n"; # NADA } $pm->wait_all_children;
0 /Users/.../Desktop/cychip/cyto/Oligo/Oligo 2013/010613ES/010613ESA ABN +. CONTROL_(CytoScanHD_Array)_2012.cyhd.cychp.txt 0 /Users/.../Desktop/cychip/cyto/Oligo/Oligo 2013/010613ESA ABN. CONTROL +_(CytoScanHD_Array)_2012.cyhd.cychp.txt /Users/.../Desktop/cychip/cyto/Oligo/Oligo 2012/010613ESA ABN. CONTROL +_(CytoScanHD_Array)_2012.cyhd.cychp.txt /Users/.../Desktop/cychip/cyto/Oligo/Oligo 2012/milk/010613ESA ABN. CO +NTROL_(CytoScanHD_Array)_2012.cyhd.cychp.txt 0 /Users/.../Desktop/cychip/cyto/Oligo/Oligo 2012/eggs/010613ESA ABN. CO +NTROL_(CytoScanHD_Array)_2012.cyhd.cychp.txt /Users/.../Desktop/cychip/cyto/Oligo/Oligo 2012/coffe/010613ESA ABN. C +ONTROL_(CytoScanHD_Array)_2012.cyhd.cychp.txt
In reply to Push it real good, or don't by pimperator
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |