{filelink=14648}

#!/usr/bin/perl

use strict;
use warnings;
use AnyDBM_File;
use POSIX;
my %dbm;
my $fichier_BD="c:/BD/Etudiant.dbm";      #Le nom de la Base de données

tie (%dbm, 'AnyDBM_File', $fichier_BD, O_CREAT|O_RDWR, 0644);
	unless (tied %dbm)
	{
    printf ("Impossible de créer la Base de donnée:%s $!",$fichier_BD );
	}
 	else
	{
    	$dbm{'ID'}=1;
    	$dbm{'Nom'}="sakoba";
   		$dbm{'Prenom'}="Steve";
   		foreach (sort keys %dbm)
     	{
        print "$_ => $dbm{$_}";
    	}
    untie %dbm;
	}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]