use strict;
use warnings;
use FlexBaseDB;
my $dirname = '/home/FlexBaseDB';
unlink glob("$dirname/*");
my $fbenv = FB_OpenENV ( EnvHome    =>  $dirname );
## Directory for database(s)
if ( ! $fbenv ) { die "FB_OpenENV: Bad ENV\n"; }
my $filename = "TestDB";
## Test file name in Environment!
my $fb = FB_OpenDB   (   FB_Name    =>  $filename,
## Unique name of database
                                            FB_ENV       =>  $fbenv,
## reference from FB_OpenENV
                                         );
if ( ! $fb ) { die "FB_OpenDB: Bad FILE\n"; }
my $key = "Hello"; my $data = "World, we're here!"; my $ret;
for my $count ( 1..5 )
{
$ret = FB_Write( $fb,\"$key-$count",\$data );
if ( $ret==FALSE ) { die "Write failed $FB_Error \n"; }
}
if ( FB_Seek( $fb,\$key, FB_FIRST ) )
{
print "\nOutput:\n\n";
while( $ret )
{
$key = ""; $data = "";
$ret = FB_ReadNext( $fb,\$key,\$data );
print "$key\t$data\n";
               }
}
print "\n","=" x 54, "\n";
## Will print statistics for your DB
my @results = FB_Stat ( $fb );
for my $no ( 0 .. $#results )
{
if ( substr($results[$no],0,1) eq "=" ) { $results[$no] = "=" x 54; }
print "$results[$no]\n";
}
print "=" x 54, "\n";
$ret = FB_CloseDB( $fb );
$ret = FB_CloseENV( $fbenv );
__END__
Output:
Hello-1 World, we're here!
Hello-2 World, we're here!
Hello-3 World, we're here!
Hello-4 World, we're here!
Hello-5 World, we're here!