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 does `$result = f() .. g()' really return?

1187

Difference between the variables in which chomp function work ?

1061

What is the function of virtual documents in cgi programs?

960

Which functions in perl allows you to include a module file. State their differences.

936

Explain the execution of a program in perl.

982

What does the’$_’ symbol mean?

999

What is perl dbi?

886

Can inheritance be used in perl?

987

How can information be put into hashes?

966

How many types of primary data structures in Perl and what do they mean?

1404

What is lexical variable in perl?

926

How can you create anonymous subroutines?

914

How would you ensure the re-use and maximum readability of your perl code?

933

How to check the status of airplane mode (enable/disable) in perl for Android mobile?

3079

Explain chop?

909