/readdb.pl.txt

## readdb.pl.txt
#!/usr/bin/env perl

use strict;
use warnings;

use DB_File;
use Fcntl;

my @arr;
my $recno = DB_File::RECNOINFO->new();

$recno->{flags} |= R_FIXEDLEN;
$recno->{reclen} = 100;

my $h = tie(@arr, 'DB_File', "test.db", O_CREAT|O_RDWR, 0600, $recno) or die "Can't tie file: $!";
print "length: " . $h->length . "\n";
undef $h;
untie @arr;
	#!/usr/bin/env perl

	use strict;
	use warnings;

	use DB_File;
	use Fcntl;

	my @arr;
	my $recno = DB_File::RECNOINFO->new();

	$recno->{flags} \|= R_FIXEDLEN;
	$recno->{reclen} = 100;

	my $h = tie(@arr, 'DB_File', "test.db", O_CREAT\|O_RDWR, 0600, $recno) or die "Can't tie file: $!";
	print "length: " . $h->length . "\n";
	undef $h;
	untie @arr;