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
";
}
}
EDIT: I wanted to just extract the IP address, not do any validation.
See Question&Answers more detail:os