I'd be using:
#!/usr/bin/perl -w
$dir = "/backup";
opendir BACKUPDIR, $dir or die "Cannot open $dir!";
foreach (readdir BACKUPDIR){
unless ($_ eq "." or $_ eq ".."){
#print "$_";
push (@dirs,$_);
}
foreach (@dirs) {
print "$_\n";
}
}
--
Bob Erinkveld (Webmaster Insa
doht! Thanks!
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Friday, December 13, 2002 10:13 AM
> To: Paul Kraus; Perl
> Subject: RE: Readdir to array
>
>
> You are foreah'ing in your foreach. So it is printing the
>
You are foreah'ing in your foreach. So it is printing the contents of the array
foreach of the files in the directory...
http://danconia.org
On Fri, 13 Dec 2002 09:56:19 -0500, "Paul Kraus" <[EMAIL PROTECTED]> wrote:
> for some reason the outpu
