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

[Tiago Peczenyj]

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