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
