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

Re: Directory Walk

by merlyn (Sage)
on Sep 08, 2000 at 07:06 UTC ( #31538=note: print w/replies, xml ) Need Help??


in reply to Directory Walk

use File::Find; find sub { return $File::Find::prune = 1 if $File::Find::name =~ m{^/top/dir/this|some/where|.DONTSEARCH}; return unless /\.html?$/; ($r, $line) = search_tags($File::Find::name); push @pages, $File::Find::name if $r; }, "/top/dir";
Details, of course, are in File::Find

-- Randal L. Schwartz, Perl hacker

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2022-01-20 13:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (56 votes). Check out past polls.

    Notices?