I have written this code, but it does not work.
Can someone point out the issue?
sub match_ip()
{
my $ip = "The IP address is 216.108.225.236:60099";
if($ip =~ /(\d{1-3}\.\d{1-3}\.\d{1-3}\.\d{1-3}\:\d{1-5})/)
{
print "$1\n";
}
}
EDIT:
I wanted to just extract the IP address, not do any validation.
Change
{1-3}to{1,3}same for{1-5}->{1,5}