Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Reg Expression on file name

by foxops (Monk)
on Jan 06, 2003 at 19:22 UTC ( [id://224707]=note: print w/replies, xml ) Need Help??


in reply to Reg Expression on file name

How about: 
use strict;
use File::Find;

my(@directories_to_seach);

@directories_to_seach = "C:/Documents and Settings/Desktop";

find(\&wanted, @directories_to_seach);
 sub wanted {
  if ("$_" =~ /^AB\sDAT*\.doc$/i) {
   print "$_\n";
  }
 }

[download]

Replies are listed 'Best First'.
Re: Re: Reg Expression on file name
by Anonymous Monk on Jan 06, 2003 at 19:27 UTC
    Is my regular expression correct?? 
    /^AB\sDAT*\.doc$/i

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://224707]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2024-04-20 04:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found