On 6/8/06, chen li <[EMAIL PROTECTED]> wrote:
Dear all,
How can I add a line (lines) to the following script
so that I can show the results on a new browser window
after I press the submit button?
Thanks,
Li
#!c:/Perl/bin/perl.exe
use warnings;
use strict;
use CGI;
my $query_obj=CGI->new();
#creat webpage
print $query_obj->header;
print $query_obj->start_html('My First Webpage');
print $query_obj->start_form;
print $query_obj->p;
print "What is your name
",$query_obj->textfield(-name=>'text_field',
-value=>'');
print $query_obj->p;
my @major=qw( English Biology Immunology );
print " What is your major
",$query_obj->popup_menu(-name=>'menu_name',-value=>[EMAIL PROTECTED]);
print $query_obj->p,$query_obj->submit;
print $query_obj->end_form;
print $query_obj->end_html;
#capture the data
my $name=($query_obj->param('text_field') or '');
print $query_obj->p,"This is your name $name",
"\n\n";
print $query_obj->p;
my $major=($query_obj->param('menu_name') or '');
print "This is your major $major ";
exit;
Hello ,
Hope this work.....
#!c:/Perl/bin/perl.exe
use warnings;
use strict;
use CGI;
my $query_obj=CGI->new();
#creat webpage
print $query_obj->header;
print $query_obj->start_html('My First Webpage');
if (!$query_obj->param){
print $query_obj->start_form(-target=>'_new');
print $query_obj->p;
print "What is your name
",$query_obj->textfield(-name=>'text_field',-value=>'');
print $query_obj->p;
my @major=qw( English Biology Immunology );
print " What is your major
",$query_obj->popup_menu(-name=>'menu_name',-value=>[EMAIL PROTECTED]);
print $query_obj->p,$query_obj->submit;
print $query_obj->end_form;
}
else{
my $name=($query_obj->param('text_field') or '');
print $query_obj->p,"This is your name $name","\n\n";
print $query_obj->p;
my $major=($query_obj->param('menu_name') or '');
print "This is your major $major ";
}
print $query_obj->end_html;
exit;
----------
Prabu M A
