Re^7: Script exponentially slower as number of files to process increases

Select or download this

my $subdircount = $maxforks - 1;

Select or download this

########################################################
# threads, mod: init data after spawning threads
...

-rw-r--r-- 1 mario mario 471M Jan 28 12:51 data.dat

Select or download this

$ time ../threads.pl 
Parsing 61441 files
...
real  0m4.100s
user  2m3.994s
sys   0m0.880s

Select Code to Download