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

What is perl programming?

1033

---

Suppose an array contains @arraycontent=(‘ab’, ‘cd’, ‘ef’, ‘gh’). How to print all the contents of the given array?

981

---

Is perl compiler or interpreter?

949

---

What is “grep” function in perl?

1017

---

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

905

---

How do I send e-mail from a Perl/CGI program on a Unix system?

1017

---

How to implement a stack in Perl?

1034

---

List the operator used in Perl?

987

---

In Perl, what is grep function used for?

1087

---

How to close a file in perl?

963

---

What is the difference between use and require in perl?

870

---

What are the arguments and what do they mean in perl programming?

1007

---

Which has the highest precedence, List or Terms? Explain?

896

---

How to connect to SQL server through Perl?

1064

---

What are different data types that perl supports. Elaborate on them.

1092

---