RE: email adress eq email adress?

[Bill Burke]

I used this, it may help you

$email = $mailto;
$email =~ s/\@/\\\@/;

That 'escapes' the @



-----Original Message-----
From: drieux [mailto:[EMAIL PROTECTED]
Sent: Saturday, March 01, 2003 8:35 PM
To: Ian Vännman
Cc: [EMAIL PROTECTED]
Subject: Re: email adress eq email adress?



On Friday, Feb 28, 2003, at 17:19 US/Pacific, Ian Vännman wrote:

>  Whenever it finds a match it makes the checkbox
> checked. The problem I'm having is comparing email-adresses:
>
> if ("$_" eq "$Account") {
>     Make the checkbox checked here...
> }
>
> $_ may be [EMAIL PROTECTED] and $Account may be
> [EMAIL PROTECTED], but they don't match because @aftonbaldet
> is
> treated as an array. How do I get the eq to ignore the @?

there must be some other issue in play here.

Since I can not replicate your problem - see the test script
at the end.

Are you sure that you are getting the @ double parsed????


ciao
drieux

---
the output:

matched with double quote
matched without quote - [EMAIL PROTECTED]
no match with double quotes
no match without quotes - [EMAIL PROTECTED] vice
[EMAIL PROTECTED]

the code:

        #!/usr/bin/perl -w
        use strict;

        my $name = '[EMAIL PROTECTED]';

        my $accName = '[EMAIL PROTECTED]';

        my $Oname = '[EMAIL PROTECTED]';

        doMe($name, $accName);

        doMe($name, $Oname);

        #------------------------
        #
        sub doMe {
                my ($tag, $Account ) = @_;
                $_ = $tag;


                if ("$_" eq "$Account") {
                        print "matched with double quote\n";
                }
                else
                {
                        print "no match with double quotes\n";
                }

                if ($_ eq $Account) {
                        print "matched without quote - $Account \n";
                }
                else
                {
                        print "no match without quotes - $Account vice $_\n";
                }


        } # end of doMe


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]