Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Passing regex to a subroutine

by Lotus1 (Chaplain)
on Oct 12, 2012 at 23:13 UTC ( #998802=note: print w/ replies, xml ) Need Help??


in reply to Passing regex to a subroutine

This is not exactly what you asked for but another option is to use File::Find.

#!perl; use warnings; use strict; use File::Find; my $path = 'c:\b\perlmonks\arrays'; my $regexStr = qr{([0-9])\1[0-9]*([0-9])\2}; my @files; find( sub { !-d and /$regexStr/ and print "<$_>\n" and push @files, $F +ile::Find::name }, $path ); print "1- $_\n" foreach glob("$path\\*"); print "2- $_\n" foreach @files; __END__ Output: <997882.pl> <997882.txt> 1- c:\b\perlmonks\arrays\964788.pl 1- c:\b\perlmonks\arrays\966409.pl 1- c:\b\perlmonks\arrays\970295.pl 1- c:\b\perlmonks\arrays\997235.pl 1- c:\b\perlmonks\arrays\997829.pl 1- c:\b\perlmonks\arrays\997882.pl 1- c:\b\perlmonks\arrays\997882.txt 1- c:\b\perlmonks\arrays\fff2.txt 1- c:\b\perlmonks\arrays\junk 2- c:\b\perlmonks\arrays/997882.pl 2- c:\b\perlmonks\arrays/997882.txt


Comment on Re: Passing regex to a subroutine
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (12)
As of 2014-09-23 11:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (219 votes), past polls