Answer Posted / vipul dalwala

print "content-type: text/html\n\n";.

if ($ENV{’REQUEST_METHOD’} eq ’POST’) {
read(STDIN, $buffer, $ENV{’CONTENT_LENGTH’});
}
else {
$buffer = $ENV{’QUERY_STRING’};
}

@keyvaluepairs = split(/&/, $buffer);

foreach $pair (@keyvaluepairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex
($1))/eg;
print $name . "=". $value ."<br>";
}

“The methods defined in the parent class will always override the methods defined in the base class”. What does this statement means?

1002

---

Explain subroutine?

910

---

What is lexical variable in perl?

924

---

What are numeric operators in perl?

946

---

What is subroutine in perl?

939

---

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

957

---

what is CPAN?

969

---

For a situation in programming, how can you determine that Perl is a suitable?

878

---

What is perl unshift array function?

1025

---

If you want to empty an array then how would you do that?

1090

---

What are some of the key features of objects in perl?

936

---

Mention how many ways you can express string in Perl?

1006

---

Explain cpan?

968

---

What interface used in PERL to connect to database? How do you connect to database in Perl?

984

---

What does perl do in linux?

936

---