in reply to Re: Re: Getting a simple directory listing
in thread Getting a simple directory listing

push does not use $_ as an implicit argument, so when you do push(@dir) you are not pushing anything into @dir. You have to do: 
push(@dir, $_) if (-d "./desktop/$_");

[download]
Although I would substitute that whole block (the readdir and the foreach) by: 
@dir = grep { -d "./desktop/$_" } readdir(TEXTFILES);

[download]
:-)

--ZZamboni

Replies are listed 'Best First'.
Re: Re: Re: Re: Getting a simple directory listing
by Stamp_Guy (Monk) on May 01, 2001 at 04:27 UTC
    Bingo, that worked. Is there a way I can strip out the . and .. directories?
[reply]
      Just check for them. In your original code: 
      foreach (@data) {
  next if $_ eq "." || $_ eq "..";
  push @dir, $_ if -d "./desktop/$_";
}

      [download]
      Using grep: 
      @dir = grep { $_ ne "." && $_ ne ".." && -d "./desktop/$_" }
    readdir(TEXTFILES);

      [download]

      --ZZamboni

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom