Most people on this forum, believe that BerkeleyDB is free. Oracle has added some conditions that make it very expensive( our law firm's counsel ). One example: If a company employee downloads BerkeleyDB and installs it, that's okay. But as a software vendor, if I download it and install it, the company owes Oracle a fee based on number of cores and type of box. For a power7 IBM p-series with 32 cores, the license fee is $ 48,000. for the "free" BerkeleyDB.

Just in case anyone was wondering about it, see my take on it in Open Source License for Berkeley DB unchanged

The situation hasn't changed with the latest Berkeley db-5.3.21 , license is essentialy the same, though there is an addition of ASM for Java (only affects java bits, doesn't affect distribution / pricing )

But I'm not a businessman or a lawyer or work for oracle

regarding http://www.flexbasedb.com/, I notice you don't provide html only pdf, minor hassle

For anyone interested about PurePerlDB/FlexBaseDB, from http://www.flexbasedb.com/FlexBaseDB_Introduction.pdf 

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!

[download]

In reply to Re^5: RFC: Is this the correct use of Unicode::Collate? by Anonymous Monk
in thread RFC: Is this the correct use of Unicode::Collate? by flexvault

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.