«

The code is below,
Why on the page, it will also print out the name according to these
two lines :
$name = param('name'),
$name =~ s/\^/\\^/,



# CGI script that creates a fill-out form
# and echoes back its values.

use CGI qw/:standard/;
print header,
start_html('A Simple Example'),
h1('A Simple Example'),
start_form,
"What's your name? ",textfield('name'),p,
"What's the combination?", p,
checkbox_group(-name=>'words',
-values=>['eenie','meenie','minie','moe'],
-defaults=>['eenie','minie']), p,
"What's your favorite color? ",
popup_menu(-name=>'color',
-values=>['red','green','blue','chartreuse']),p,
submit,
end_form,
hr;

if (param()) {
$name = param('name'),
$name =~ s/\^/\\^/,
print "Your name is",em(param('name')),p,
"The keywords are: ",em(join(", ",param('words'))),p,
"Your favorite color is ",em(param('color')),
hr;
}

On 02/13/2007 12:47 AM, wrote:
> The code is below,
> Why on the page, it will also print out the name according to these
> two lines :

I don't understand the question. Perhaps you meant to ask "How do I
print the name after having preformed these changes:"

> $name = param('name'),
> $name =~ s/\^/\\^/,
>
>
>
> # CGI script that creates a fill-out form
> # and echoes back its values.
>

Even though the example in CGI.pm doesn't use them, it's best to use
strictures and warnings.

use strict;
use warnings;


> use CGI qw/:standard/;
> print header,
> start_html('A Simple Example'),
> h1('A Simple Example'),
> start_form,
> "What's your name? ",textfield('name'),p,
> "What's the combination?", p,
> checkbox_group(-name=>'words',
> -values=>['eenie','meenie','minie','moe'],
> -defaults=>['eenie','minie']), p,
> "What's your favorite color? ",
> popup_menu(-name=>'color',
> -values=>['red','green','blue','chartreuse']),p,
> submit,
> end_form,
> hr;
>
> if (param()) {

my $name;

> $name = param('name'),
> $name =~ s/\^/\\^/,

Why are you putting commas rather than semicolons after these two lines?


> print "Your name is",em(param('name')),p,
> "The keywords are: ",em(join(", ",param('words'))),p,
> "Your favorite color is ",em(param('color')),

p, "Transformed name: @{[ escapeHTML($name) ]}",

> hr;
> }
>


--
Windows Vista and your freedom in conflict:
http://www.regdeveloper.co.uk/2006/1...eula_analysis/