thanks. worked !! > -----Original Message----- > From: Hanson, Robert [mailto:[EMAIL PROTECTED]] > Sent: Friday, December 21, 2001 11:36 AM > To: 'Kipp, James'; [EMAIL PROTECTED] > Subject: RE: getting multiple dir and file names into array > > > This should work... > > @filenames = ( @filenames, grep (!/^\.\.?$/ , readdir (DIR)) ); > > Rob > > > -----Original Message----- > From: Kipp, James [mailto:[EMAIL PROTECTED]] > Sent: Friday, December 21, 2001 11:28 AM > To: [EMAIL PROTECTED] > Subject: getting multiple dir and file names into array > > > Hello > If I have an array of dir names and I want to capture the sub > dir names and > file > names into an array, what is the best way to do this without > overwriting the > array each time thru? (see code below) Can I do a push or > concatenate or > something else ? > > Thanks > > --- > > @dirs = qw( /dbm1/user/ /dbm2/user/ ); > > # read in the files and directory names in the directory > excluding . and .. > foreach $dir (@dirs) > { > unless (opendir (DIR, $dir)) > { > print "\n Path not found - $dir\n\n"; > exit 1; > } > @filenames = grep (!/^\.\.?$/ , readdir (DIR)); > } > closedir DIR; >
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
