Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

sparkyichi's scratchpad

by sparkyichi (Deacon)
on Jun 05, 2004 at 12:45 UTC ( [id://361577] : scratchpad . print w/replies, xml ) Need Help??

while(my $line = <FP> ){ chomp ($line); if ($line){push (@dirlist, $line);} } close FP; #remove last 5 builds from the purge list for(my $i=0; $i < 5; $i++){ my $temp = pop @dirlist; print "Skippping: $temp\n"; }