|
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.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |