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" <[email protected]>
> 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: [email protected]
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
