<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, &quot;Lucas Moraes&quot; &lt;<a href="mailto:mineiro@live.be">mineiro@live.be</a>&gt;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 &quot;Content-type: text/html\n\n&quot;;<br>my $test = new mod::config;<br>$test-&gt;nome({<br>    nome =&gt; &#39;Lucas&#39;,<br>    idade =&gt; 23,<br>
    cidade =&gt; &#39;Bragança Paulista&#39;,<br>});<br>$test-&gt;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 &#39;nome&#39; =&gt; (is =&gt; &#39;rw&#39;);<br>sub imprimir {<br>    my $self = shift;<br>    while(my($indice, $valor) = each(%{$self-&gt;nome})){<br>
        print $indice . &#39; = &#39; . $valor . &#39;&lt;br /&gt;&#39;;<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>