Writing Portable DBM Programs with the AnyDBM Module : AnyDBM « Database « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » Database » AnyDBM

Writing Portable DBM Programs with the AnyDBM Module

   



#!/usr/bin/perl

use strict;

use warnings;

use AnyDBM_File;

use POSIX;

my %dbm;

my $db_file="anydbmdemo.dbm";

tie (%dbm, 'AnyDBM_File', $db_file, O_CREAT|O_RDWR, 0644);

unless (tied %dbm) {

    print "Error opening $db_file $!\n";

} else {

    $dbm{'Created'}=localtime;

    foreach (sort keys %dbm) {

        print "$_ => $dbm{$_}\n";

    }

    untie %dbm;

}

Related examples in the same category

1.	Deleting Entries from a DBM File
2.	Retrieving Data from a DBM File
3.	Create, add, delete, and close a DBM file and how to create a Perl-style report.

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.