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

[Hernan Lopes]

fica dificil adivinhar sem ver seu código, mas

penso que vc quer:
perl -e "my @items = qw( aaaa bbbb ccc); foreach $i (@items) { print $i; } "

mas vc esta fazendo:
perl -e "my @items = qw( 'aaaa' 'bbbb' 'ccc'); foreach $i (@items) { print
$i; } "

abs

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
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20110714/074734b3/attachment.html>