Betrachter für kleine Datenbanken II

dbviewer.pl

#!/usr/local/bin/perl -w use IO::File; use Getopt::Std; use Tk; use strict; my $cmdname = $0; $cmdname =~ s{.*/}{}; my $usage = "Usage: $cmdname [-c] [-d delim] " . "[-t title_column] dbfile {fieldname}\n"; my %opts = (); getopts('cd:t:', \%opts); my $delim = '\s+'; $delim = $opts{'d'} if defined($opts{'d'}); my $strip_comments = defined($opts{'c'}); my $tcol = 0; $tcol = $opts{'t'} - 1 if defined($opts{'t'}); die $usage unless @ARGV > 0; my $dbfile = shift; my @fieldnames = @ARGV;

Das Modul Getopt::Std definiert u.a. die Funktion getopts, mit der relativ einfach Optionen abgearbeitet werden können.

Die erste Zeichenkette bei getopts definiert die bekannten einbuchstabigen Optionen. Wenn ein : hinter einem Optionsbuchstaben angegeben wird, gehört jeweils ein Argument dazu.

getopts legt dann die Optionen im übergebenen assoziativen Array ab.

	Das Modul `Getopt::Std` definiert u.a. die Funktion `getopts`, mit der relativ einfach Optionen abgearbeitet werden können.
	Die erste Zeichenkette bei `getopts` definiert die bekannten einbuchstabigen Optionen. Wenn ein `:` hinter einem Optionsbuchstaben angegeben wird, gehört jeweils ein Argument dazu.
	`getopts` legt dann die Optionen im übergebenen assoziativen Array ab.