Não entendi direito, mas seria um foreach keys (ou values) ?<div><br></div><div>o comando keys recebe um HASH e retorna as chaves dele.</div><div>o comando values tambem recebe um HASH, mas retorna apenas o valores (e, raramente usado)</div>
<div><br></div><div>exemplos:</div><div>%cores = (</div><div> verde => 'green',</div><div> azul => 'blue'</div><div>);</div><div><br></div><div>print "$_ em inglês é $cores{$_}" for keys %cores;</div>
<div><br></div><div><br><br><div class="gmail_quote">2010/10/3 Lucas Moraes <span dir="ltr"><<a href="mailto:mineiro@live.be">mineiro@live.be</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div>
Oi gente, estou quendo pegar o indice dos objetos, estou usando Moose, vou passar para vocês como eu quero.<br>
<br>
arquivo modulo/<a href="http://config.pm" target="_blank">config.pm</a><br>
package modulo::config;<br>
use Moose;<br>
has 'dados' => (is => 'rw');<br>
sub indice {<br>
$self = shift;<br>
}<br>
1;<br>
<br>
arquivo <a href="http://dados.pl" target="_blank">dados.pl</a><br>
#!/usr/bin/perl<br>
use modulo::config;<br>
$dados = new modulo::config;<br>
$dados->dados({<br>
cor => '#224488',<br>
tamanho => 34,<br>
});<br>
$dados->indice;<br>
<br>
para eu imprimir a cor dentro da sub indice: $self->dados{cor}<br>
com o tamanho tambem: $self->dados{tamanho}<br>
<br>
gostaria de usar o foreach() para pegar o indice e o valor, mas não estou conseguindo, alguem pode me ajudar?<br>
<br>
Deus é o limite!<br>                                            </div>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></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>