Eine Textdatei als assoziatives Array II

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

TextFileDB.pm
package TextFileDB;

use strict;
use warnings;
use Carp;
use Fcntl;
use File::Sync;
use IO::File;
use TextRecordConverter;
require Exporter;

our @ISA = qw(Exporter);

sub TIEHASH {
   my ($package, %options) = @_;
   my $required = $package->required;
   my $self = bless {
      changes => 0,
      records => {},
      map {
         $_ =>
         defined $options{$_} &&
               ref($options{$_}) eq $required->{$_}?
            $options{$_}
         :
            croak "missing or invalid parameter $_"
      } keys %{$required},
   }, $package;
   $self->load;
   $self->initialize(%options);
   return $self;
}

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003