Skip to content

Instantly share code, notes, and snippets.

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

  • Save earnhardt3rd/08784021ab001b4fecbe7d656cb54e12 to your computer and use it in GitHub Desktop.

Select an option

Save earnhardt3rd/08784021ab001b4fecbe7d656cb54e12 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 = &_SHOW_OS_FOLDERS();}
1;
sub _SHOW_OS_FOLDERS {
if (scalar(keys %OS_FOLDERS) > 0) {
printf " %-20s %-80s\n","OS_FOLDER","PATH";
printf " %-20s %-80s\n","--------------------","--------------------------------------------------------------------------------";
foreach my $ofkey(sort keys %OS_FOLDERS) {
printf " %-20s %-80s\n",$ofkey,$OS_FOLDERS{$ofkey};
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment