Hi Kurtz, Daniel, and Sherm,
Thanks so much for your replies. I really appreciate it!! I'll work
with the examples you sent as well as take a peek at the perldoc -f -X.
Thanks again for taking the time to help with this! :-)
Jay
On Mar 23, 2007, at 1:12 PM, kurtz le pirate wrote:
In article
<[EMAIL PROTECTED]>,
[EMAIL PROTECTED] ("Daniel T. Staal") wrote:
You mean 'my %files'. You also don't need the '=()', but it
doesn't hurt
either.
find(sub { if (!/^\./ && !-d) { $files{$_} = $File::Find::name } },
"/Volumes/Server/Folder/Path/");
print $files{"sku123"}; # example of getting item out of hash
I'm leaving these alone for the moment.
oops... read to quickly the first time... i suggest :
push (@{$files{$_}},$File::Find::name);
--
klp
