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 are the advantages and disadvantages of perl language?

901

Which has highest precedence in between list and terms? Explain?

842

How to connect with sqlserver from perl and how to display database table info?

928

What are the advantages of c over Perl?

901

What are stdin, stdout and stderr?

1051

Explain perl.

920

Explain the difference between die and exit in perl?

853

Is perl a case sensitive language?

1074

How does polymorphism work in perl?

888

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

1029

How to open and read data files with Perl

1014

How can you define “my” variables scope in Perl and how it is different from “local” variable scope?

1078

What is goto statement in perl?

908

What are the various flags/arguments that can be used while executing a perl program?

843

How to turn on Perl warnings? Why is that important?

1028