11 lines
222 B
Perl
11 lines
222 B
Perl
|
#!/usr/bin/perl
|
||
|
use warnings;
|
||
|
use strict;
|
||
|
use MLDBM;
|
||
|
use POSIX; #for O_CREAT and O_RDWR symbols
|
||
|
use strict;
|
||
|
my %mldbm;
|
||
|
my $mldb_file="mlanydbmdemo.dbm";
|
||
|
tie %mldbm, 'MLDBM', $mldb_file, O_CREAT|O_RDWR, 0644;
|
||
|
|
||
|
|