Dynamic if statements possible?

[PJYelton]

I'm fairly new to perl and had a question. Is there an easy way to do something like this without using a whole lot of if statements:

my $s = "=~";  # could also possibly be "!~", "<=", etc etc
my $b = "^";   # could also be "", "$", etc etc
my $t = "blah"

my $phrase = "blah bleh bluh";

if ($phrase $s /$b $t $b/) {  # equates to "if $phrase =~ /^blah/"
    # this block should run since the statement is true
}

 

[ishnid]

You can't use the operator like that (your $s variable). However, you can build up a regexp with variables. The way you're doing it equates to /^ blah ^/ - you have spaces in your regexp, so the regexp engine will try to match those.

 

[Xaqte]

You might want to try out Regexp::Common :

http://search.cpan.org/~abigail/Regexp-Common-2.120/lib/Regexp/Common.pm

Let us know your results!

X