Answer Posted / 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";
}

What happens in dereferencing?

1049

---

What is qq (double q)operator in perl?

1023

---

How to read file into hash array ?

1114

---

What is the difference between exec and system?

1097

---

How do I sort a hash by the hash value?

938

---

How to change a directory in perl?

931

---

Explain socket programming in perl?

920

---

How to merge two arrays in perl?

1070

---

How many loop control keywords are there in perl?

946

---

What are the various perl data types based on the context?

947

---

How to close a file in perl?

961

---

How does a “grep” function perform?

1051

---

What is the easiest way to download the contents of a URL with Perl?

956

---

What is the purpose of “_file_ literal” and “_line_ literal” in perl?

919

---

Define print() function in perl?

921

---