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" <[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 > -- 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: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
