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 output is different for this script. If I print $_ I > get the correct list. If I print the Array I get roughly the same list 4 > times? > > #!/usr/bin/perl -w > > $dir = "/backup"; > opendir BACKUPDIR, $dir or die "Cannot open $dir!"; > foreach (readdir BACKUPDIR){ > unless ($_ eq "." or $_ eq ".."){ > # print "$_"; > > push (@dirs,$_); > } > print "$_\n" foreach (@dirs); > } > > Paul Kraus > Network Administrator > PEL Supply Company > 216.267.5775 Voice > 216-267-6176 Fax > www.pelsupply.com > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
