Memorizzazione oggetto sul DB e recuperarlo

Question

Ho un oggetto perl (riferimento ad array di riferimenti) come di seguito:

my $a = [ [$a, $ab, $c ], [$a, $b, $c] ] ; 

e la necessità di memorizzare sul DB poi recuperarlo.

Qualcuno potrebbe suggerire un buon meccanismo per serializzare anche per comprimerlo e quindi memorizzarlo sul DB? Quindi deserializzare e usarlo nel codice?

Answer 1

È possibile utilizzare uno qualsiasi dei serializzatori noti, ad es. JSON::XS o Storable. Storable è meglio se si desidera recuperare i riferimenti come riferimenti, non come copie di valori. Quindi salva un oggetto serializzato nel campo di qualsiasi tipo (VARCHAR, BLOB, ...) che soddisfi i requisiti di archiviazione.

use Storable qw(nfreeze thaw); 
use DBI; 

# ... connect to database 
# Store 
my $data = [ [$a, $b, $c ], [ $a, $b, $c ] ]; 
my $bytestream = nfreeze $data; 
$dbh->do('insert into table (field) values(?)', undef, $bytestream); 

# Retrieve 
$bytestream = $dbh->selectrow_array('select field from table where ...'); 
$data = thaw $bytestream; 

Inoltre, è possibile comprimere $bytestream, per esempio, tramite IO::Compress::Gzip

my $bytestream = gzip nfreeze $data; 

Answer 2

Non l'ho mai provato, ma perldoc dice che il valore di ritorno di Data :: Dumper può essere "valutato per ottenere una copia identica della struttura di riferimento originale". È quindi possibile inserire l'output del Dumper in un campo di testo abbastanza grande nel database.

Answer 3

Che dire di Data :: Dumper? È possibile eseguire il dump degli oggetti in un campo TEXT del DB e quindi valutare il contenuto per recuperarlo.