|
sub new { my ($package, $dbfile) = @_; my $in = new IO::File $dbfile; my $records = {}; if (defined $in) { $records = $xs->XMLin($in); $in->close; $records = $records->{book}; } my $self = bless { dbfile => $dbfile, records => $records, changes => 0, }, $package; return $self; } |
Um eine Indirektion zu sparen (wir haben nur Bücher
in diesem Beispiel), wird mit $records = $records->{book};
die oberste Ebene weggeworfen. Anschließend gleicht die
Datenstruktur dem vorherigen Beispiel in Books.pm.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |