<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>