my %dbconf=(
  db_file => 'buecher.db',
  row_names => qw(Autor Titel Jahr Seiten),
  auto_update => 0,
);
my $db = db->new(%dbconf);
if(my $elm=$db->get_first_eq('Autor','Orwell'))
{
  $elm->set('Autor','George Orwell'),
  $db->update();
}

for my $elm ($db->get_all_regexp('Autor',qr/georg/i)) {
  print join( ',', $elm->get('Titel','Jahr','Autor') )."\n";
}

my $first=$db->get_by_pos(100);
die("Zeile 100 existiert nicht!") unless defined $first;
print $first->get('Titel')."\n";
my $next=$elm;
while( $next = $next->next() ){
  if( ! $next->equal($elm) ) {
    print $next->get('Titel')."\n";
  }
}