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"; } [download]
www.com | www.net | www.org
No recent polls found