On 09/04/2011 21:30, Olof Johansson wrote:
On 2011-04-10 01:40 +0530, Sunita Rani Pradhan wrote:
You are right. Thanks for pointing out. Can you help me getting it
correct ?
Somebody already mentioned Regex::Common.
Use the same module for email addresses:
use Regexp::Common qw/ net Email::Address /;
$possible_ip =~ /^$RE{net}{IPv4}\z/;
$possible_email =~ /^$RE{Email}{Address}\z/;
Rob
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/