Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

thezip's scratchpad

by thezip (Vicar)
on Feb 15, 2007 at 16:36 UTC ( #600240=scratchpad: print w/replies, xml ) Need Help??

//prod/working //prod/working/05039303 //prod/working/1150846-G2 //prod/working/115316
The first directory is the "in" directory, and should not be in the output, as in:
//prod/working/05039303 //prod/working/1150846-G2 //prod/working/115316
my $rule = File::Find::Rule->new(); my $at_at_regex = qr/^\@\@[^\@]+\@\@/; my $is_seven_digits_regex = qr/^\d{7}$/; $rule->directory(); $rule->maxdepth(1); $rule->not_name(qr/$is_seven_digits_regex/); $rule->not_name(qr/$at_at_regex/); $rule->not_name(qr/^Snapshot$/i); my @folders = $rule->in(@directories);
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the sunlight beams...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2017-01-16 22:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you watch meteor showers?




    Results (151 votes). Check out past polls.