Jay Savage wrote: > On 11/23/05, Jeremy Kister <[EMAIL PROTECTED]> wrote: >>On 11/23/2005 2:26 AM, David Gilden wrote: >>>$SendersEmail ="[EMAIL PROTECTED]"; >>> >>>($SendersEmail) = $SendersEmail =~ m/([EMAIL PROTECTED],60})/; >>[...] > > You want to be careful with your classes here. '@' is not a > metacharacter inside a class ([]), so '\@' matches both a literal '\' > and '@'
Matches are interpolated as double quoted strings so you have to escape '@' if it will be interpolated as an array. $ perl -le'@. = @x = "A" .. "D"; print for qr/[EMAIL PROTECTED]/, qr/[EMAIL PROTECTED]/, qr/[EMAIL PROTECTED]/' (?-xism:[A B C D]) (?-xism:[EMAIL PROTECTED]) (?-xism:[EMAIL PROTECTED]) John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
