in reply to Re: can I get a translation
in thread can I get a translation
this runs but I its not giving me all the files. I have files in each directory it looks to be returning for only one of them.opendir(DIR, "c:\\mlx\\") || die "can't opendir: $!"; @list = grep { $_ ne '.' && $_ ne '..'&& $_ ne 'copy.pl' } @list=readdir(DIR); foreach $name (@list) { print $name, "\n"; opendir(DIR, $name); @files=readdir(DIR); foreach $file(@files){ print "filename is ", $file, "\n"; } #opendir(DIR, "$_")||die "Not able to open directory $!"; @files=readdir(DIR); foreach(@files) { print $_, "\n"; } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: can I get a translation
by kennethk (Abbot) on Apr 23, 2009 at 15:26 UTC |