<div dir="ltr">Vi você esqueceu de definir as variáveis com o &#39;my&#39;, tende declarar as variáveis que o compilador está reclamando e eu acho que vai funcionar.<br><br>&#39;my $this = ...&#39;<br>&#39;my $atrb = ...&#39;<br>
<br><div class="gmail_quote">2008/7/31 Vi <span dir="ltr">&lt;<a href="mailto:vi.arievilo@gmail.com">vi.arievilo@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div dir="ltr">Bom lah vai..<br><br>S.O: usamos FreeBsd<br>Perl: Usamos a versão 5.8.8<br>Data::Serializer 0.46<br><br>esse eh o código:<br><br>#!/usr/local/bin/perl<br>use Data::Serializer;<br>use strict;<br><br>#Pacote<br>

package DadosObjeto;<br>#construtor<br>sub new<br>{<br>&nbsp;&nbsp;&nbsp; my $obj = shift;<br>&nbsp;&nbsp;&nbsp; $this &nbsp;&nbsp;&nbsp; = ref ($obj)&nbsp; ||&nbsp; $obj; <br><br>&nbsp;&nbsp;&nbsp; #atributos da classe &nbsp;  <br>&nbsp;&nbsp;&nbsp; $atrb = <br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; nome =&gt; &#39;Marciolino&#39;,<br>

&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; sobrenome =&gt; &#39;Martes de Venus Plutao&#39;,<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; };<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; return bless $this, $atrb;<br>} <br><br>#esse trecho eu peguei da documentacao do Cpan<br>$obj = Data::Serializer-&gt;new();<br>$obj = Data::Serializer-&gt;new(<br>

&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; serializer =&gt; &#39;Storable&#39;,<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; digester&nbsp;&nbsp; =&gt; &#39;MD5&#39;,<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cipher&nbsp;&nbsp;&nbsp;&nbsp; =&gt; &#39;DES&#39;,<br>

&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; secret&nbsp;&nbsp;&nbsp;&nbsp; =&gt; &#39;my secret&#39;,<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; compress&nbsp;&nbsp; =&gt; 1,<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );<br><br>$serialized = $obj-&gt;serialize({a =&gt; [1,2,3],b =&gt; 5});<br>

$deserialized = $obj-&gt;deserialize($serialized);<br>print &quot;$deserialized-&gt;{b}\n&quot;;<br><br><br>Como jah disse antes, sou iniciante em Perl, portanto nao sei se a parte do Pacote esta correta (peguei hj um tutorial que explica como funciona OO em perl)!<br>

E tambem nao sei se esta certo usar o mesmo script para a classe(pacote) e para a serializacao!<br>Sei lah talvez se separar a classe da serializacao e chamar a classe no script onde ocorrera a serializacao funcionaria!?!?!?!!<br>

E como eu passo o objeto a ser serializado?<br><br><br>E esses são os erros:<br>Global symbol &quot;$this&quot; requires explicit package name at serialz.pl line 13.<br>Global symbol &quot;$atrb&quot; requires explicit package name at serialz.pl line 15.<br>

Global symbol &quot;$this&quot; requires explicit package name at serialz.pl line 20.<br>Global symbol &quot;$atrb&quot; requires explicit package name at serialz.pl line 20.<br>Global symbol &quot;$obj&quot; requires explicit package name at serialz.pl line 25.<br>

Global symbol &quot;$serialized&quot; requires explicit package name at serialz.pl line 33.<br>Global symbol &quot;$obj&quot; requires explicit package name at serialz.pl line 33.<br>Global symbol &quot;$deserialized&quot; requires explicit package name at serialz.pl line 34.<br>

Global symbol &quot;$obj&quot; requires explicit package name at serialz.pl line 34.<br>Global symbol &quot;$serialized&quot; requires explicit package name at serialz.pl line 34.<br>Global symbol &quot;$deserialized&quot; requires explicit package name at serialz.pl line 35. <br>

<br><br>Obrigada pela ajuda pssoal!!<br><br><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>&quot;o animal satisfeito dorme&quot;. - Guimarães Rosa<br>

</div>