Rendre un hash persistant

Pas moins de cinq modules standards de Perl assurent cette tache, tous fonctionnent à peu près de la même façon, même si certains sont plus performants, plus fiables, plus stables et plus complets que d'autres :

• DB_File
• GDBM_File
• ODBM_File
• SDBM_File
• NDBM_File

Attention, car ces modules ne sont pas compatibles entre eux et on ne peut reprendre les fichiers de l'un avec l'autre. Leur présence dépend fortement de votre système et des librairies binaires déjà installés avant la compilation de Perl.

use GDBM_File;

my %hash;
tie(%hash,'GDBM_File','file',&GDBM_WRCREAT,0640);

if($ARGV[0] == 1) {
        $hash{stephane} = 'l\'auteur';
        $hash{HK} = 'l\'editeur';
}
else {
        while(my($key,$value) = each(%hash)) {
                print "$key = $value\n";
        }
}

untie(%hash);