Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Exemple de création d’un fichier de base de données DBM portable

Your ads will be inserted here by

Easy AdSense.

Please go to the plugin admin page to paste your ad code.

base de données, fichier
Download

#!/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'}