ember 16, 2004 11:17 AM
To: Bill Adams; [EMAIL PROTECTED]
Subject: RE: find sub {}
Bill Adams wrote:
> Hi All,
>
> I've inherited a perl application. Can anyone explain to me the code
> below, particularly "find sub {"
>
> find sub { $chambers{$_} = $File::Find
Hi All,
I've inherited a perl application. Can anyone explain to me the code
below, particularly "find sub {"
TIA, Bill
use File::Find;
@ARGV = '/var/yp/src' unless @ARGV;
my %chambers;
find sub { $chambers{$_} = $File::Find::name . "/passwd" if -r
$_/passwd"}, @ARGV;
--
To unsubscribe, e-m
