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 é <b>'</b>"12-7-2011"<b>'</b> ou seja, o texto [supostamente uma data] junto com as aspas.<div>

<br></div><div>o comportamento do qw é separar por espaços [incluindo tab, "enter", etc...] </div><div><br><div class="gmail_quote">2011/7/14 Tiago Peczenyj <span dir="ltr"><<a href="mailto:tiago.peczenyj@gmail.com">tiago.peczenyj@gmail.com</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><a href="http://pastebin.com/sF8LtPKZ" target="_blank">http://pastebin.com/sF8LtPKZ</a><br>
<br>
imprime:<br>
<br>
eu recebi : "12-7-2011"<br>
eu recebi : "13-7-2011"<br>
eu recebi : "14-7-2011"<br>
<br>
não entendi o seu problema. pode dar mais detalhes?<br>
<br>
2011/7/14 "Flávio R. Lopes" <<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>>:<br>
<div><div></div><div class="h5">> Boa noite pessoal.<br>
><br>
> Onde estou errando nisso:<br>
><br>
> Supondo que eu tenha um array "@dias", onde desejo passar elemento por<br>
> elemento para uma Sub (pesquisa)<br>
><br>
> my @dias = qw ("12-7-2011" "13-7-2011" "14-7-2011");<br>
><br>
> foreach my $dia (@dias) {<br>
><br>
>    $data = $dia;<br>
>    pesquisa($data);<br>
><br>
><br>
><br>
> }<br>
><br>
> Se eu rodar o código acima não acontece nada.<br>
><br>
><br>
> Mas funciona se eu fizer da forma abaixo, redefinindo "$data" a cada linha:<br>
><br>
> $data = "12-07-2011";<br>
> pesquisa ($data);<br>
><br>
> $data = "14-07-2011";<br>
> pesquisa ($data);<br>
><br>
><br>
> O que está errado?<br>
><br>
> Abraço,<br>
> Flávio<br>
><br>
><br>
> =begin disclaimer<br>
>  Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
> SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
> L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
> =end disclaimer<br>
><br>
<br>
<br>
<br>
</div></div><font color="#888888">--<br>
Tiago B. Peczenyj<br>
Linux User #405772<br>
<br>
<a href="http://pacman.blog.br" target="_blank">http://pacman.blog.br</a><br>
</font><div><div></div><div class="h5">=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Renato Santos<br><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a><br>
</div>