2012/1/30 Kiss Gabor <ki...@ssg.ki.iif.hu>:
>
> A szememnek jobban esne itt:
> my
> ($lepeskoz,$lepeskoz_tol)=($q->param('lepeskoz'),$q->param('lepeskoz_tol'));
> ...
> Esetleg
> print $q->Dump; # ? :-)
>
Mint azt már az előbb írtam, eme programocska nem a szépségről
szólt... de az OOP jegyében azért kijavítottam a dolgot... és a
$q->Dump is szebb megoldás, mint az én egész "hosszú" műveletem...
csak a változót és az értékét nem egy sorba írja...
Plusz most már kiíratom a változók értékét is...
Minden esetre a végeredmény sajnos nem változott: a $lepeskoz_tol
értéke szépen megváltozik, de a textfield nem veszi fel annak értékét.
Ez az, amit nem értek.
Köszönettel,
kjt
ui: Per pillanat így állok:
#!/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)=($q->param('lepeskoz'),$q->param('lepeskoz_tol'));
print "<i>'$lepeskoz' - '$lepeskoz_tol'</i><br>";
if ($q->param('elore')) { $lepeskoz_tol=$lepeskoz_tol+$lepeskoz }
print "<i>'$lepeskoz' - '$lepeskoz_tol'</i><br>";
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";
print "<i>'$lepeskoz' - '$lepeskoz_tol'</i><br>";
my $i; foreach ($q->Vars) { $i++; if ($i%2) { print "$_: " } else {
print "$_<br>\n" } }
print "<i>'$lepeskoz' - '$lepeskoz_tol'</i><br>";
print $q->hr;
print $q->Dump;
print $q->hr;
print $q->end_html;
_________________________________________________
linux lista - linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux
