ASCII-Dateien als assoziative Arrays II

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

FileDB.pm
sub STORE {
   $_[0]->{db}->{$_[1]} = $_[2];
   $_[0]->{modified} = 1;
}

sub FETCH {
   $_[0]->{db}->{$_[1]};
}

sub FIRSTKEY {
   my $a = scalar keys %{$_[0]->{db}}; each %{$_[0]->{db}};
}

sub NEXTKEY {
   each %{$_[0]->{db}};
}

sub EXISTS {
   exists $_[0]->{db}->{$_[1]};
}

sub DELETE {
   delete $_[0]->{db}->{$_[1]};
   $_[0]->{modified} = 1;
}

sub CLEAR {
   %{$_[0]->{db}} = ();
   $_[0]->{modified} = 1;
}

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000