Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: help please

by Revelation (Deacon)
on Mar 26, 2002 at 01:58 UTC ( #154300=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    if ( -d $dirname)
    {
    ...
    
    blah blah blah blah blah
    
  2. or download this
    opendir(DIR, $dirname) || die "can't opendir $dirname: $!";
    my @directory = readdir(DIR);
    my @filenames = grep { -f "$dirname/$_" } @directory;  # Either use th
    +e array @directory, or rewinddir(DIR) here, and grep readdir(DIR) twi
    +ce.
    my @directories = grep {-d "$some_dir/$_" &&  !/^\.$/ && !/^\..$/} @di
    +rectory;
    closedir DIR;  
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://154300]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2014-11-27 21:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (188 votes), past polls