programming-examples/perl/CGI/Using param() function to get parameter.pl

35 lines
732 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
#!/usr/bin/perl -w
use strict;
use CGI ':standard';
if (param()) {
my @params = param();
my $firstname = param('firstname') || 'you have no first name!';
my $lastname = param('lastname') || 'you have no last name!';
print
header(),
start_html(
-title => 'Welcome!',
-text => '#520063'
),
h1("Hello, $firstname $lastname!"),
end_html();
} else {
print
header(),
start_html('A Simple Form'),
h1('Please Enter Your Name'),
start_form(),
'First name: ',
textfield(-name => 'firstname'),
br(),
'Last name: ',
textfield(-name => 'lastname'),
br(),
submit(),
end_form(),
end_html();
}