http://qs1969.pair.com?node_id=672354

atemon has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,

I have two regular expressions.

$exp1 = "123*" $exp2 = "1233*"
$exp1 is stored in a MySQL table and user is entering $exp2 from a UI. We know that $exp1 will match all strings matched by $exp2. So I want to compare the two expressions. If I use any operator like eq or cmp I will get this as unequal. If I compare like  $exp1 =~ /^$exp2/ or $exp2 =~ /^$exp1/, it won't match as the meta characters like * has a different meaning on LHS and RHS of =~. Is there a way other than parsing the string to match them?

$exp1 is from DB and $exp2 is entered. Since $exp1 will match all expressions that would be matched by $exp2, I dont want to insert $exp2 into DB.

Cheers !

--VC
Gods Own Country...