Discussion :

[mobscene]

Salut a tous je cherche une alternative au module Storable celui-ci me cause des soucies en effet certaine fois la désérialisation des données bug c'est un problème récurrent avec ce module et j'en aie franchement plein ** ***

Il s'agit de tables de hash qui sont sérialisé par une première applction puis traié par un seconde le tout sur la meme machine.

[pospos]

à priori sur un ememe machine (meme version du module et meme architecture) tu ne devrais jamais avoir ce prob.
Pour passer d'une architecture à l'autre mieux vaut utiuliser nfreeze (et meme dans tous les cas en fait, elle n'est pas plus lente que freeze).
Ensuite il y a des choses qu'on ne peux pas facielement serialiser, comme par exemple une reference de code (on peut le faire avec Storable en utilisant deparse, mais il faut specifier l'option, et dans tous les cas c'est plutot dangereux... cf Data:umper::Streamer pour comprendre pourquoi).
Il y a aussi evidemment les filehandler et autre object "exterieurs" (genre handler de base de donnée, etc...) qui ne sont pas serialisables.

Ensuite ca peut aussi etre du à une manipulation invlotaire sur les données serialisées (genre oubli de binmode en la sauvant/lisant sur disque). Pour verifier ca tu peux tenter de l'encoder en base64 apres serilisation, puis al decoder avant deserialisation (juste pour tester).

Il y a evidemment pas mal d'alternatives à storable (yaml::syck, data::dumper::streamer, etc...) mais storable est surement al pluse efficace, donc si ca plante à priori c'est qu'il y a quelque part dans ton process un truc qui deconne

[mobscene]

Bah pourtant je sauve mes données comme cela :

Open(FILE, "> toto.web) or die 'Tain marche pas ';
flock(FILE,2);
binmode(FILE);
print FILE Storable::nfreeze($data);
flock(FILE,8);
close(FILE);


Et je les récupère comme cela

Open(FILE, "toto.web) or die 'Tain marche pas ';
flock(FILE,2);
binmode(FILE);
local $/ = undef;
my $Content = <FILE>;
flock(FILE,8);
close(FILE);

[pospos]

et tu es sur que tu maitrise exactement les données que tu serialize?
pas de ref de code? pas d'objet dont tu n'es pas sur de la structure (genre inside out object ou object contentnant d'autres truc non serializables), pas de file hanlder? pas de handle dbi? etc...

[mobscene]

Oui je sais exactement ce que je sérialise, il s'agit d'un hash contenant la réponse a une requete HTTP lancé avec HTTP::Async , et quelques autres infos pour que la seconde applie puisse commencer a bosser.

voila le hash :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
 
          my $ToTreat = {};
 
          # Retrieve url
          my $url = undef;
 
          if ( exists $response->{'_previous'} ) {
            $url = $response->{'_previous'}{'_request'}{'_uri'}->as_string;
          }
           else {
            $url = $response->request->url->as_string;
          }
 
          $ToTreat->{'_response'}      = $response;
          $ToTreat->{'_url'}           = $url;
          $ToTreat->{'_todo'}          = $Queue{$url};
          $ToTreat->{'_last_modified'} = defined $response->header('last-modified') ? str2time($response->header('last-modified')) : time();
 
          # Check content-type
          my $content_type = undef;
 
          if ( ref($response->{'_headers'}{'content-type'}) eq "ARRAY" )
          {
            my $type = $response->{'_headers'}{'content-type'}[0];
               $type = s/(.*);//;
               $content_type = $1;
          }
           else 
          {
             $content_type = $response->{'_headers'}{'content-type'};
          }
 
          $content_type = $self->_content_type($content_type);
 
 
          $ToTreat->{'_content_type'} = defined $content_type ? $content_type : "text-html";
 
          # Generate sha-1 name   
          $ToTreat->{'_name'} = sha1_hex($url); 
 
          # Write data
          $self->_write_data($ToTreat->{'_name'},$ToTreat);
 
          # Delete link from data queue
          delete $Queue{$url};

Il n'y a que $response qui soit un objet