Introdução a Persistência de Estrutura de Dados em Perl

Descrição

Esconder código-fonte

#!/usr/bin/env perl 
# 2016 (c) Daniel Vinciguerra

use utf8;
use strict;
use warnings;

use IO::File;
use Storable qw/freeze thaw/;
use Data::Dumper;


# arquivo de gravação
my $FILE = 'database.dat';


# minha estrutura de dados simples
my $usuario_list = [
    { id => 1, nome => 'Foo', email => 'foo@email.com' },
    { id => 2, nome => 'Bar', email => 'bar@email.com' },
    { id => 3, nome => 'Baz', email => 'baz@email.com' },
];


# DEBUG: mosta o estado inicial da estrutura de dados
print "- Estrutura de Dados: \n" . Dumper($usuario_list);


# serializando a estrutura de dados
my $serialized = freeze $usuario_list;

# gravando a estrutura serializada em um arquivo
my $fout = IO::File->new($FILE, 'w');
if(defined $fout){
    print $fout "${serialized}";
    $fout->close;
}


# limpando a variável que havia a estrutura de dados
undef $usuario_list;

# DEBUG: verifica o que existe na estrutura de dados
print "- Estrutura de Dados: \n" . Dumper($usuario_list);


# recuperando a estrutura serializada em um arquivo
my $fin = IO::File->new($FILE, 'r');
if(defined $fin){
    $usuario_list = thaw(join('',<$fin>));
    $fin->close;
}

# DEBUG: mosta a estrutura de dados
print "- Estrutura de Dados: \n" . Dumper($usuario_list);