Turning an argument into a regexp

[LoneRanger]

This code snippet is part of a playlist generator. I'd like to be able to take in arguments such as dir. to start searching at, and what to search for. The File::Find mod. seems to have some probs with the regexp being a variable...Any solutions?

my $MP3dir = $ARGV[0];
my $searchfor = $ARGV[1];
#$MP3dir = "\"" . $MP3dir . "\"";
my $regexp = "\/\\.$searchfor\/";
find(\&wanted, $MP3dir);

sub wanted
{
   $regexp or return;

[jcwren]

It's because wanted isn't evaluating the regexp, it's merely treating it as a string.

Try removing the '\/' from the front and end of your $regexp string, then this code fragment.

sub wanted
{
   /$regexp/ or return;
}

Just for the record, you may want to use /$regexp/i to ignore case from the command line, and play both those .MP3 and .mp3 files. Also, this line: $MP3dir = "\"" . $MP3dir . "\""; can be reduced to $MP3dir = "\"$MP3dir\""; There are other ways to quote that, also. That's just a tad more readable.

--Chris

e-mail jcwren

[le]

I don't think the File::Find module has problems with a variable being a regexp. But you should let Perl know that you actually mean a regexp. In your example, $regex is treated as a scalar, not as a regex. Try something like this:

my $regex = "\\.$searchfor";

$file =~ m/$regex/;

Putting the regex delimiters into the variable may work with an eval, but this is just a wild guess.

[ncw]

I agree with the comments above. I'd just like to add an oft forgotten thing (obscure feature alert ;-) to do with regexps, namely \Q and \E for turning off regular expression parsing.

If $searchfor contained characters special to regexp (eg '.' or '?') then you won't get quite the results you expect, and your program may crash with an invalid regexp error. Use \Q and \E something like this...

my $MP3dir = $ARGV[0];
my $searchfor = $ARGV[1];
find(\&wanted, $MP3dir);

sub wanted
{
  /\.\Q$searchfor\E$/ or return

[KM]

Look at qr/STRING/ (perdoc perlop).

my $re = /\d+$/; # for an example pattern
$thingy =~ /My Zip code is $re/;
$thingy =~ /$re/;
$thingy =~ s/foo{$re}bar/baz/;
etc...

Cheers,
KM