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]
