Skip to content

Instantly share code, notes, and snippets.

@earnhardt3rd
Created June 19, 2023 14:03
Show Gist options
  • Select an option

  • Save earnhardt3rd/86bfdbc86ed5443dc5a371cbfc47b358 to your computer and use it in GitHub Desktop.

Select an option

Save earnhardt3rd/86bfdbc86ed5443dc5a371cbfc47b358 to your computer and use it in GitHub Desktop.
require 'getopts.pl';
Getopts('m:d:t');
my $MODE = uc($opt_m) || "";
my $DEBUG = $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SDM_LOADOPTIONS();}
1;
sub _SDM_LOADOPTIONS {
my $colSEP="!";
my $preSEP="P!P";
my $rowSEP="T!T";
my $mdb = &_GET_MDB();
if ($mdb =~ /ERROR/) {
print "$mdb\n";
return;
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment