o problema, deve ser, que o metodo 'pesquisa' esta esperando receber uma string com o valor de "12-7-2011" porém, o que esta sendo enviado é *'* "12-7-2011"*'* ou seja, o texto [supostamente uma data] junto com as aspas.
o comportamento do qw é separar por espaços [incluindo tab, "enter", etc...] 2011/7/14 Tiago Peczenyj <[email protected]> > 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 > -- Renato Santos http://www.renatocron.com/blog/
=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
