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>";
}

Write the program to process a list of numbers.

929

---

Explain the arguments for perl interpreter.

1156

---

Explain strftime() function in perl?

888

---

What are the logical operators used for small scale operations? Explain them briefly.

933

---

Write a program to decode the data in the form using cgi programming

998

---

How do you turn on the perl warnings?

862

---

How we can navigate the xml documents?

941

---

How to dereference a reference?

933

---

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

870

---

Explain the difference between die and exit in perl?

828

---

Explain 'grep' function.

932

---

Explain substr function in perl?

967

---

How to read a file into a hash array?

999

---

Explain chop?

871

---

List the prefix dereferencer in Perl.

886

---