Zugriff auf Indexdateien von Perl

lookupbookcdb.pl

#!/usr/local/bin/perl use strict; use warnings; use CDB_File; my $cmdname = $0; $cmdname =~ s{.*/}{}; my $usage = "Usage: $cmdname cdbfile key\n"; die $usage unless @ARGV == 2; my $cdbfile = shift; my $key = shift; my %books; tie %books, 'CDB_File', $cdbfile or die "$cmdname: tie failed: $!\n"; print $books{$key}, "\n" if defined $books{$key};

Die Operationen für Indexdateien sind sehr verwandt zu denen für assoziative Arrays innerhalb von Perl. Dies gilt insbesondere, wenn keine Sortierung erwartet wird.

Entsprechend liegt es nahe, die Abstraktion eines assoziativen Arrays auch für externe Indexdateien zu verwenden. Dies geht über die Funktion tie in Perl.

	Die Operationen für Indexdateien sind sehr verwandt zu denen für assoziative Arrays innerhalb von Perl. Dies gilt insbesondere, wenn keine Sortierung erwartet wird.
	Entsprechend liegt es nahe, die Abstraktion eines assoziativen Arrays auch für externe Indexdateien zu verwenden. Dies geht über die Funktion `tie` in Perl.