http://www.calweb.com/~hanelyp/lsmud/lsmud.dst
... basematch = grep(/$whatb/, readdir(D) ); closedir (D); # transilate to easily searched form foreach $cnt (@basematch) { $basematch{$cnt} = 1;} if (@basematch) # find an unused label { for ($cnt ...
http://www.calweb.com/~hanelyp/lsmud/lsmud.dst msn
(c) 2003 Translationinfo.net
Execution time: 0.049336194992065