<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> my $obj = shift;<br> $this = ref ($obj) || $obj; <br><br> #atributos da classe <br> $atrb = <br> {<br> nome => 'Marciolino',<br>
sobrenome => 'Martes de Venus Plutao',<br> };<br> return bless $this, $atrb;<br>} <br><br>#esse trecho eu peguei da documentacao do Cpan<br>$obj = Data::Serializer->new();<br>$obj = Data::Serializer->new(<br>
serializer => 'Storable',<br> digester => 'MD5',<br> cipher => 'DES',<br>
secret => 'my secret',<br> compress => 1,<br> );<br><br>$serialized = $obj->serialize({a => [1,2,3],b => 5});<br>
$deserialized = $obj->deserialize($serialized);<br>print "$deserialized->{b}\n";<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 "$this" requires explicit package name at serialz.pl line 13.<br>Global symbol "$atrb" requires explicit package name at serialz.pl line 15.<br>
Global symbol "$this" requires explicit package name at serialz.pl line 20.<br>Global symbol "$atrb" requires explicit package name at serialz.pl line 20.<br>Global symbol "$obj" requires explicit package name at serialz.pl line 25.<br>
Global symbol "$serialized" requires explicit package name at serialz.pl line 33.<br>Global symbol "$obj" requires explicit package name at serialz.pl line 33.<br>Global symbol "$deserialized" requires explicit package name at serialz.pl line 34.<br>
Global symbol "$obj" requires explicit package name at serialz.pl line 34.<br>Global symbol "$serialized" requires explicit package name at serialz.pl line 34.<br>Global symbol "$deserialized" requires explicit package name at serialz.pl line 35. <br>
<br><br>Obrigada pela ajuda pssoal!!<br><br><br></div>