Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Re: Re: Getting a simple directory listing

by ZZamboni (Curate)
on May 01, 2001 at 04:24 UTC ( [id://76832]=note: print w/replies, xml ) Need Help??


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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://76832]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2024-04-23 20:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found