Beispiel für eine sortierte indizierte Datei II

gencomposerdb.pl

#!/usr/local/bin/perl use strict; use warnings; use BerkeleyDB; my $cmdname = $0; $cmdname =~ s{.*/}{}; my $usage = "Usage: $cmdname dbfile composers\n"; die $usage unless @ARGV == 2; my $dbfile = shift; unlink($dbfile) if -f $dbfile; my $db = new BerkeleyDB::Btree -Filename => $dbfile, -Flags => DB_CREATE, -Compare => sub { $_[0] <=> $_[1] }, -Property => DB_DUP|DB_DUPSORT;

Mit DB_DUP|DB_DUPSORT wird dafür gesorgt, daß Duplikate bei den Schlüsseln zugelassen werden.

Mit Compare läßt sich das Sortierkriterium spezifizieren, das später nicht mehr verändert werden darf.

	Mit `DB_DUP\|DB_DUPSORT` wird dafür gesorgt, daß Duplikate bei den Schlüsseln zugelassen werden.
	Mit `Compare` läßt sich das Sortierkriterium spezifizieren, das später nicht mehr verändert werden darf.