Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: s and replace

by ehdonhon (Curate)
on Jul 07, 2002 at 19:01 UTC ( #180010=note: print w/replies, xml ) Need Help??


in reply to s and replace

finddir("$config{home}$user{site_id}"); sub finddir { my ($root, $relative) = @_; chomp ( $root ); $root .= '/' unless ( $root =~ m|/$| ); $relative .= '/' if ( defined($relative) and ( $relative !~ m|/$| ) +); local *DIR; opendir ( DIR, $root . $relative ); my @userfiles = sort grep !/^\.\.?\z/, readdir DIR; foreach $file (@userfiles) { next unless ( -d "$root$file" ); print "$relative$file"; finddir($root, $relative . $file ); } }

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (None)
    As of 2022-01-25 23:23 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?
      In 2022, my preferred method to securely store passwords is:












      Results (69 votes). Check out past polls.

      Notices?