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

Answers were Sorted based on User's Feedback



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

Answer / savitha sridhar

print "Enter an ip address: ";
$ans=<stdin>;
chomp($ans);
if ($ans =~ m/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)
{
if (($1<=255) && ($2<=255) && ($3<=255) &&
($4<=255))
{
print "An IP Address";
}
else
{
print "Not an IP Address";
}
}
else
{
print "Not an IP Address";
}

Is This Answer Correct ?    12 Yes 1 No

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

Answer / anil

The first reply won't match 192.168.99.99. [0-5] matches
only 0,1,2,3,4,5. How about the other numbers?

Second one is almost correct, but the first octet can't be
'0'. I mean, 0.1.2.3 is not a valid address.

print "Enter an ip address: ";
$ans=<stdin>;
chomp($ans);
if ($ans =~ m/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)
{
if ( ($1>0) && ($1<=255) && ($2<=255) && ($3<=255) &&
($4<=255))
{
print "An IP Address";
}
else
{
print "Not an IP Address";
}
}
else
{
print "Not an IP Address";
}

Is This Answer Correct ?    2 Yes 1 No

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

Answer / digesh patel

if($ipaddress=~m\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b)
print "\n It is a valid IP address :";

Is This Answer Correct ?    0 Yes 0 No

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

Answer / 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

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

Answer / snehal kashikar

#! /usr/bin/per
use strict;
#- Use Input
#---------------
my $ip_add = "";

#- Script start
#---------------
print"Enter the IP address\n";
$ip_add = <STDIN>;
chomp($ip_add); # Remove the last "\n" character
$ip_add=$ip_add."\."; # Append . at the end of IP address
#-------Expression to check IP address is valid or not-----#
if($ip_add =~ m/^[0-2]?[0-5]?[0-5]?\.){4}$){
print" Valid IP Address\n";
}else{
print" Invalid IP Address\n"
}

Is This Answer Correct ?    1 Yes 7 No

Post New Answer

More CGI Perl Interview Questions

What is q (single q) operator in perl?

0 Answers  


you are required to replace a char in a string and store the number of replacements. How would you do that?

0 Answers  


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

0 Answers  


Explain goto label?

0 Answers  


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

0 Answers  


what r the future opportunities in PERL/LINUX after 3 years ??

3 Answers  


What package you use to create a windows services?

0 Answers  


Give an example of the -i and 0s option usage.

0 Answers  


Difference between Perl and Mod_perl?

2 Answers  


What are the different types of perl operators?

0 Answers  


What is perl unshift array function?

0 Answers  


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

0 Answers  


Categories