Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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?
[BarApp]: I can not use modules. I gain temporary access and still can not use modules.
[Cosmic37]: ta erix - this szabo geezer is pretty cool methinks and he writes about undef but I cannot see instructions for redefining the record separator after having undefined it
[Corion]: $/ = "wahtever";
[Corion]: (it's a magic variable)
[karlgoethebier]: BarApp: whoami
[Cosmic37]: ok fankyou - I was wondering about that but thought there might be a redefine command or something; peachy
[Lotus1]: Cosmic37 if you undef $/ in a local context to a block it won't affect the global version after the block finishes
[Lotus1]: or you can just do local $/ in a block

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2017-06-29 16:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (672 votes). Check out past polls.