if($IP !~ /(((\d|[1-9]\d|1\d{2}|2[0-4]\d|25[0-5])\.){3}(\d| [1-9]\d|1\d{2}

Write an expression or perl script to identify the entered
ip address is valid or not?

Question Posted / subhash chandran

Answer Posted / subhash chandran

if($IP !~ /(((\d|[1-9]\d|1\d{2}|2[0-4]\d|25[0-5])\.){3}(\d|
[1-9]\d|1\d{2}|2[0-4]\d|25[0-5]))/)
{
print "Valid\n";
}

Is This Answer Correct ?

0 Yes

0 No

Please Help Members By Posting Answers For Below Questions

What is the use of command “use strict”?

953

Explain '->' in perl?

873

How do I replace every character in a file with a comma?

928

Explain about the applications of perl?

914

What value is returned by a lone `return;’ statement?

1006

What does Perl do if you try to exploit the execve(2) race involving setuid scripts?

892

We all know private variables exist in perl. But do private METHODS exist in perl ? Eg ?

2403

What does read () command do?

872

Explain the different types of data perl can handle.

849

What are some of the key features of objects in perl?

893

What are the steps involved when the cgi program starts running?

859

For a situation in programming, how can you determine that Perl is a suitable?

834

How can information be put into hashes?

914

What does file test operators do in perl?

862

What is posix in perl?

878