writedb.pl

writedb.pl.txt

#!/usr/bin/env perl

use strict;
use warnings;

use DB_File;
use Fcntl;

sub get_data {
	my $data;
#	open my $fh, "</dev/urandom" or die "Can't open /dev/urandom for reading: $!";
#	sysread $fh, $data, 20;
#	close $fh;
	$data = 'A' x 20;
	$data;
}

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

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


for(my $i = 0; $i < 2; $i++) {
	my $h = tie(@arr, 'DB_File', "test.db", O_CREAT|O_RDWR, 0600, $recno) or die "Can't tie file: $!";
	my $str = get_data();
	$h->push($str);
	$h->sync();
	undef $h;
	untie @arr;
}