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
