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 is perl language?

924

---

How to read a directory in perl?

1017

---

Explain the functioning of conditional structures in perl.

939

---

What is the purpose of redo statement?

1009

---

What is warn function in perl?

946

---

What is eval function in perl?

944

---

What does the’$_’ symbol mean?

999

---

How interpreter is used in perl?

935

---

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

934

---

Explain chomp, chop, cpan, tk.

927

---

What are scalar data and scalar variables?

1112

---

Explain perl. When do you use perl for programming? What are the advantages of programming in perl?

873

---

what is Perl one liner?

892

---

What are the advantages of programming in perl?

1025

---

How will you open a file in read-only mode in perl?

891

---