Betrachter für kleine Datenbanken V

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

dbviewer.pl
my ($db, $titles, $maxcols, $maxtitlelen) =
   scan_db($dbfile, $delim, $tcol, $strip_comments);
my $maxfieldnamelen = 0;
foreach my $col (1 .. $maxcols) {
   $fieldnames[$col - 1] = sprintf("%02d", $col)
      unless defined $fieldnames[$col - 1];
   my $length = length($fieldnames[$col - 1]);
   $maxfieldnamelen = $length if $length > $maxfieldnamelen;
}

my @fields = ();
setup_widgets();
MainLoop;

*Nachdem die Daten eingelesen sind, werden die Feldnamen bestimmt (sofern nicht bereits vorgegeben) und die Oberfläche aufgebaut.
 
*In der Liste @fields wird nachher der jeweils selektierte Datensatz abgelegt.
 

 [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