<div dir="ltr">Vi você esqueceu de definir as variáveis com o 'my', tende declarar as variáveis que o compilador está reclamando e eu acho que vai funcionar.<br><br>'my $this = ...'<br>'my $atrb = ...'<br>
<br><div class="gmail_quote">2008/7/31 Vi <span dir="ltr"><<a href="mailto:vi.arievilo@gmail.com">vi.arievilo@gmail.com</a>></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> 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>
<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>"o animal satisfeito dorme". - Guimarães Rosa<br>
</div>