|
#!/usr/local/bin/perl use strict; use warnings; use IO::File; use Getopt::Std; use Tk; 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.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |