> #!/usr/bin/perl -T -t
>
> use strict;
> use CGI qw/:standard/;
>
> my $q=CGI->new;
>
> print $q->header();
> print $q->start_html();
>
> my ($lepeskoz,$lepeskoz_tol)=(param('lepeskoz'),param('lepeskoz_tol'));
A szememnek jobban esne itt:
my
($lepeskoz,$lepeskoz_tol)=($q->param('lepeskoz'),$q->param('lepeskoz_tol'));
>
> if (param('elore')) { $lepeskoz_tol=$lepeskoz_tol+$lepeskoz }
Meg itt is.
>
> print $q->start_form,
> $q->submit('semmi'),"\n",
> $q->submit('elore'),br,"\n",
> $q->textfield(-name=>'lepeskoz_tol',
> -value=>$lepeskoz_tol),"-tól",br,"\n",
> $q->textfield(-name=>'lepeskoz', -value=>$lepeskoz),
> "(lepeskoz)",br,"\n",
> $q->end_form,hr,"\n";
>
> my $i; foreach ($q->Vars) { $i++; if ($i%2) { print "$_: "; } else {
> print "$_<br>\n" } }
Esetleg
print $q->Dump; # ? :-)
De jobban járnál a saját változóid kiírásával ($lepeskoz,$lepeskoz_tol)
>
> print $q->hr;
> print $q->end_html;
Üdv.
g
--
Spider-Pig, Spider-Pig
Does whatever a Spider-Pig does.
Can he swing from a web?
No, he can't, he's a pig.
Look out! He is a Spider-Pig.
_________________________________________________
linux lista - linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux
