<p>Uia! Usou ate um each! Legal, mostra como perl pode ser escrito de varias Formas.</p>
<p><blockquote type="cite">Em out 3, 2010 10:54 PM, "Lucas Moraes" <<a href="mailto:mineiro@live.be">mineiro@live.be</a>>escreveu:<br><br>
<div>
Oi Renato, tudo bem meu codigo ficou assim:<br>
arquivo <a href="http://teste.pl" target="_blank">teste.pl</a><br>
#!/usr/bin/perl<br>use strict;<br>use warnings;<br>use mod::config;<br>print "Content-type: text/html\n\n";<br>my $test = new mod::config;<br>$test->nome({<br> nome => 'Lucas',<br> idade => 23,<br>
cidade => 'Bragança Paulista',<br>});<br>$test->imprimir;<br>
<br>
arquivo mod/<a href="http://config.pm" target="_blank">config.pm</a><br>
package mod::config;<br>use strict;<br>use warnings;<br>use Moose;<br>has 'nome' => (is => 'rw');<br>sub imprimir {<br> my $self = shift;<br> while(my($indice, $valor) = each(%{$self->nome})){<br>
print $indice . ' = ' . $valor . '<br />';<br> } <br>}<br>1;<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></p>