usefull little program

BTW- 

The following is useful for figuring out what getopts is doing with
your argument string.  For example:

  perl check-getopts.perl "ln:vMAHVFS" -l filename
  String = "ln:vMAHVFS"
  OPT l = "1"

Shows why dbupdate -l would create a logfile named "1" and get upset
about the filename argument.

Curtis


#!/usr/local/bin/perl

require "getopts.pl";

$str = $ARGV[0];
shift;

&Getopts("$str");

print "String = \"$str\"\n";

foreach $opt ('a'..'z','A'..'Z') {
  eval "if (defined(\$opt_$opt))"
    . " { print \"OPT \$opt = \\\"\$opt_$opt\\\"\n\" }";
}



-------- Logged at  Thu May 4 23:53:42 MET DST 1995  ---------