[Cascavel-pm] Problema com perlscript

[Donato Azevedo]

On 12/14/05, Flavio S. Glock <fglock em gmail.com> wrote:
> Em 14/12/05, Donato Azevedo<donatoaz em gmail.com> escreveu:
> > Pessoal, me ajudem pra ver se estou esquecendo algum detalhe:
> > estou fazendo um post em uma página que verifica o status de 6 checkboxes,
> > fazendo assim:
> > for (1..6) {
> >   $Response->Write($_) if $Request->Form("chk$_") =~ /on/;
> > }
> Não tenho como testar isso, mas de acordo com a documentação em
> http://cpan.org/authors/id/M/MS/MSERGEANT/PSIntro.html
> acredito que deveria ser:
>
>  for (1..6) {
>    $Response->Write($_) if $Request->Form("chk")->Item($_) =~ /on/;
>  }

Coloquei como $Request->Form("chk$_")->Item

e funcionou! Obrigado,

--
------------------------------------------------------------------------
Donato Azevedo - UFMG - Eng Ctrl Aut
the first rule of Perl Club is you don't talk about Perl Club
Slackware user #390325