1998-09-09 07:00:04 +00:00
|
|
|
package SDBM_File;
|
|
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
|
|
|
|
|
require Tie::Hash;
|
2000-06-25 11:04:01 +00:00
|
|
|
use XSLoader ();
|
1998-09-09 07:00:04 +00:00
|
|
|
|
2000-06-25 11:04:01 +00:00
|
|
|
our @ISA = qw(Tie::Hash);
|
|
|
|
|
our $VERSION = "1.02" ;
|
1998-09-09 07:00:04 +00:00
|
|
|
|
2000-06-25 11:04:01 +00:00
|
|
|
XSLoader::load 'SDBM_File', $VERSION;
|
1998-09-09 07:00:04 +00:00
|
|
|
|
|
|
|
|
1;
|
|
|
|
|
|
|
|
|
|
__END__
|
|
|
|
|
|
|
|
|
|
=head1 NAME
|
|
|
|
|
|
|
|
|
|
SDBM_File - Tied access to sdbm files
|
|
|
|
|
|
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
|
|
|
|
|
|
use SDBM_File;
|
|
|
|
|
|
|
|
|
|
tie(%h, 'SDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
|
|
|
|
|
|
|
|
|
|
untie %h;
|
|
|
|
|
|
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
|
|
2000-06-25 11:04:01 +00:00
|
|
|
See L<perlfunc/tie>, L<perldbmfilter>
|
1998-09-09 07:00:04 +00:00
|
|
|
|
|
|
|
|
=cut
|
