Einlesen von XML

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

BooksXML.pm
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.
 

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