embedded * in regex ?

nipper

I am comparing 2 variables, one read from a field in a DCR the other from an EA.

print "got $eavalue and $name from $fname\n";
if ($eavalue !~ $name) { print "need to fix $fname \n";}

works fine except when the variables contain a special character. then I get this error:

got MPC603e PID6 (Stretch) Part Number Specifications MPC603E****N and MPC603e PID6 (Stretch) Part Number Specifications MPC603E****N from /iwmnt/default/main/sps/documentation/WORKAREA/workarea/32bit/doc/data_sheet/MPC603EPNS.pdf


/MPC603e PID6 (Stretch) Part Number Specifications MPC603E****N/: nested *?+ in regexp at ./temp.ipl line 38.

SInce I cannot escape the data in the variables, how can I compare these 2 strings ? I know this is simple, but I cannot
find it anywhere.



TIA

Andy

Dwayne

You're just trying to compare to see if two strings are exactly equal or not?

if (!($eavalue eq $name)) { print "need to fix $fname \n";}

Or, if you want to make sure that the match regardless of case

if (!(lc($eavalue) eq lc($name))) { print "need to fix $fname \n";}




--

Current project: TS 5.5.2/6.1 W2K