I have created a CGI-based page,after entering all the
values in to the fields, How to get the output on the web
browser using Perl
Answers were Sorted based on User's Feedback
Answer / guest
In the form Action you have to specify the (perl) program,
you want to execute on submitting this form.
Is This Answer Correct ? | 2 Yes | 0 No |
Answer / suvvari
In the HTML form, you have to mention the perl script name.
Ex: <form action="test.pl" method="POST">. Then in the
test.pl, you have to mention the content-type as
print "content-type: text/html\n\n";. And read the form
values and print them.
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / raghav
Including the First two answers also go thru CGI.pm module.
or else you can also use the cgi-lib.pl.
Go through the docs of the modules.
Is This Answer Correct ? | 0 Yes | 0 No |
Answer / 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>";
}
Is This Answer Correct ? | 0 Yes | 0 No |
What is the difference between use and require in perl?
Enlist the advantages of using c over perl?
Why aren't Perl's patterns regular expressions?
What is perl push array function?
In Perl we can show the warnings using some options in order to reduce or avoid the errors. What are that options?
How we can navigate the xml documents?
What is the purpose of “_file_ literal” and “_line_ literal” in perl?
How do I replace every character in a file with a comma?
How many types of operators are used in the Perl?
Where the command line arguments are stored and if you want to read command-line arguments with Perl, how would you do that?
“Perl regular expressions match the longest string possible”. What is the name of this match?
What is the peculiarity of returning values by subroutines in perl?