Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2016-12-10 12:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (162 votes). Check out past polls.