RE: Mismatching matches?

[Gardner, Sam]

Title: Message

\Q..\E construct, like so:

 

Sorry, I changed your "not match" to "matches" just to make this easier. . .

 

$str1 = "    <TD class=xd01>3.04 (build 14)</TD>";
$str2 = "3.04 (build 14)";

 

if ($str1 =~ /\Q$str2\E/) {
  print "matches?\n";
}
else {
  print "no match\n";
}

 

print $str1."\n";
print $str2."\n";

 

 

Sam Gardner

GTO Application Development

Keefe, Bruyette & Woods, Inc.

212-887-6753

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, December 14, 2004 3:31 PM
To: [EMAIL PROTECTED]
Subject: Mismatching matches?

Hi.

How can I isolate stuff inside a string so that two identical strings will match when they ought to?  Sample code:

$str1 = "    <TD class=xd01>3.04 (build 14)</TD>";
$str2 = "3.04 (build 14)";

if ($str1 !~ /$str2/) {
  print "no match?\n";
}
else {
  print "match!\n";
}

The result this yields is "no match?", and not what I expect: "match!". I suspect the parentheses are responsible for this, so how can I rewrite the comparison to yield the result I need--and still work with other, more normal, strings?

Thanks!

Deane

_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs