akalapl
New User
Oct 18, 2011, 5:30 AM
Post #1 of 3
(347 views)
|
|
perl CGI how to handle user inputs
|
Can't Post
|
|
Hello,
My html page is main.html :
--------------------------- main.html------------------
<HTML>
<BODY>
<h1 align="center"> "This is my main page" </h1>
<TABLE border="0" align="center">
<TR>
<TD>
<form action="../cgi-bin/mycgiscript.cgi" method="post">
<INPUT TYPE="submit" value="main" name="main" size="50">
</form>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
----------------- end main.html -------------------
mycgiscript.cgi is :
------------- mycgiscript.cgi --------------
#!/usr/bin/perl -w
use strict;
use CGI;
my $query = CGI ->new;
print $query->start_html('this is my cgi script page');
if($query->param("main") {
print $query->startform;
print $query->scrolling_list(-name=>"items",-values=>["red","green","dark", -size=>20,-multiple=>'false',-default=>'red');
print $query->br;
print $query->submit(-value=>'submit',-name=>"submit_items");
print $query->endform;
}
else {
print $query->h5('This is second part');
}
print $query->end_html;
--------------- end of mycgiscript.cgi ------------
I would like to get user selection and do something. For example if user selects "red" then i will reverse it and output as "der", if user selects "green" i will
output as "GREEN". I dont want to redirect to an other cgi script or file. I wish do it at the same file mycgiscript.cgi.
Could you help me?
Best Regards
Erdal
|
MAIN
SEARCH
WHO'S 
LOG 