in reply to File Indexing program
use File::Find; sub wanted { warn "adding $File::Find::name\n"; push(@mainarray, $File::Find::name); } find(\&wanted, "D:"); writefile(); print "complete\n"; <STDIN>;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: File Indexing program
by jettero (Monsignor) on Jun 24, 2008 at 19:56 UTC |