Re: required help

[James Edward Gray II]

Again, you MUST send these to the Perl Beginner's List, if you want 
answers.

On Monday, October 6, 2003, at 10:48  PM, vaishali wrote:

thanks my problem is solved
I am having another query.
I am having mysql and the table is sms_log. In that my sender field 
format is

xyz abc <[EMAIL PROTECTED]>

I want only the part ie after < sign and before @ sign ie only xyz.abc.
How to extract this part from the above field
my $address = 'xyz abc <[EMAIL PROTECTED]>';
my $name;
if ($address =~ /<([EMAIL PROTECTED])@/) { $name = $1; }
else { die "Malformed address $address.\n"; }
James

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