Re: Regex and Email address.

[Wiggins d'Anconia]

Would be interesting to see which is faster, there is that whole regex 
engine thing. Of course to say that there are no letters isn't strictly 
fair because you would need two lines of comments stating what you are 
doing ;-)... depending on the context...

http://danconia.org

Hall, Scott wrote:
Regexes are always more fun :)  How else can you write a program with almost
no letters.
$email =~ s/(?<[EMAIL PROTECTED]).*$/.../;

perldoc perlre

search for 'look-behind'

Scott

-----Original Message-----
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 05, 2003 10:36 PM
To: Sara
Cc: [EMAIL PROTECTED]
Subject: Re: Regex and Email address.
Sara wrote:

Simple Regex problem....

How you will convert 

$email = "[EMAIL PROTECTED]";

TO

$email = "[EMAIL PROTECTED]";

using Regex.



Well this isn't necessarily a regex issue, TMTOWTDI,

my $email = '[EMAIL PROTECTED]';
$email = substr($email, 0, (index($email,'@')+2));
print "Email: $email...\n";
perldoc -f index
perldoc -f substr
...of course having said that you *can* do it with a regex ;-) ....

my $email = '[EMAIL PROTECTED]';
$email =~ s/^([EMAIL PROTECTED]).*/$1/;
print "Email: $email...\n";
HTH,

http://danconia.org




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