[SP-pm] Chamando uma Sub várias vezes num looping

[Renato Santos]

o problema, deve ser, que o metodo 'pesquisa' esta esperando receber uma
string com o valor de "12-7-2011" porém, o que esta sendo enviado é *'*
"12-7-2011"*'* ou seja, o texto [supostamente uma data] junto com as aspas.

o comportamento do qw é separar por espaços [incluindo tab, "enter",
etc...]

2011/7/14 Tiago Peczenyj <tiago.peczenyj at gmail.com>

> http://pastebin.com/sF8LtPKZ
>
> imprime:
>
> eu recebi : "12-7-2011"
> eu recebi : "13-7-2011"
> eu recebi : "14-7-2011"
>
> não entendi o seu problema. pode dar mais detalhes?
>
> 2011/7/14 "Flávio R. Lopes" <flavio.lopes at links.inf.br>:
> > Boa noite pessoal.
> >
> > Onde estou errando nisso:
> >
> > Supondo que eu tenha um array "@dias", onde desejo passar elemento por
> > elemento para uma Sub (pesquisa)
> >
> > my @dias = qw ("12-7-2011" "13-7-2011" "14-7-2011");
> >
> > foreach my $dia (@dias) {
> >
> >    $data = $dia;
> >    pesquisa($data);
> >
> >
> >
> > }
> >
> > Se eu rodar o código acima não acontece nada.
> >
> >
> > Mas funciona se eu fizer da forma abaixo, redefinindo "$data" a cada
> linha:
> >
> > $data = "12-07-2011";
> > pesquisa ($data);
> >
> > $data = "14-07-2011";
> > pesquisa ($data);
> >
> >
> > O que está errado?
> >
> > Abraço,
> > Flávio
> >
> >
> > =begin disclaimer
> >  Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> > SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> > =end disclaimer
> >
>
>
>
> --
> Tiago B. Peczenyj
> Linux User #405772
>
> http://pacman.blog.br
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>



-- 
Renato Santos
http://www.renatocron.com/blog/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20110714/e1b8797e/attachment.html>