[SP-pm] Data Serializer

Solli Honorio shonorio at gmail.com
Thu Jul 31 14:00:37 PDT 2008


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.

'my $this = ...'
'my $atrb = ...'

2008/7/31 Vi <vi.arievilo em gmail.com>

> Bom lah vai..
>
> S.O: usamos FreeBsd
> Perl: Usamos a versão 5.8.8
> Data::Serializer 0.46
>
> esse eh o código:
>
> #!/usr/local/bin/perl
> use Data::Serializer;
> use strict;
>
> #Pacote
> package DadosObjeto;
> #construtor
> sub new
> {
>     my $obj = shift;
>     $this     = ref ($obj)  ||  $obj;
>
>     #atributos da classe
>     $atrb =
>         {
>             nome => 'Marciolino',
>             sobrenome => 'Martes de Venus Plutao',
>         };
>         return bless $this, $atrb;
> }
>
> #esse trecho eu peguei da documentacao do Cpan
> $obj = Data::Serializer->new();
> $obj = Data::Serializer->new(
>                                               serializer => 'Storable',
>                                               digester   => 'MD5',
>                                               cipher     => 'DES',
>                                               secret     => 'my secret',
>                                               compress   => 1,
>                                            );
>
> $serialized = $obj->serialize({a => [1,2,3],b => 5});
> $deserialized = $obj->deserialize($serialized);
> print "$deserialized->{b}\n";
>
>
> 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)!
> E tambem nao sei se esta certo usar o mesmo script para a classe(pacote) e
> para a serializacao!
> Sei lah talvez se separar a classe da serializacao e chamar a classe no
> script onde ocorrera a serializacao funcionaria!?!?!?!!
> E como eu passo o objeto a ser serializado?
>
>
> E esses são os erros:
> Global symbol "$this" requires explicit package name at serialz.pl line 13.
> Global symbol "$atrb" requires explicit package name at serialz.pl line 15.
> Global symbol "$this" requires explicit package name at serialz.pl line 20.
> Global symbol "$atrb" requires explicit package name at serialz.pl line 20.
> Global symbol "$obj" requires explicit package name at serialz.pl line 25.
> Global symbol "$serialized" requires explicit package name at serialz.pl
> line 33.
> Global symbol "$obj" requires explicit package name at serialz.pl line 33.
> Global symbol "$deserialized" requires explicit package name at serialz.pl
> line 34.
> Global symbol "$obj" requires explicit package name at serialz.pl line 34.
> Global symbol "$serialized" requires explicit package name at serialz.pl
> line 34.
> Global symbol "$deserialized" requires explicit package name at serialz.pl
> line 35.
>
>
> Obrigada pela ajuda pssoal!!
>
>
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>



-- 
"o animal satisfeito dorme". - Guimarães Rosa
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20080731/2e2d1c88/attachment-0001.html>


More information about the SaoPaulo-pm mailing list