frank.earnhardt earnhardt3rd
earnhardt3rd
/ fromARRAY_SINGLE_W_TITLE.pl
Created
June 19, 2023 13:56
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &fromARRAY_SINGLE_W_TITLE();} | |
| 1; | |
| sub fromARRAY_SINGLE_W_TITLE { | |
| my @ARRAY_S = @_; | |
| my $single; | |
| if (scalar(@ARRAY_S) <= 1) {return;} |
earnhardt3rd
/ fromARRAY_WITH_DEFAULT.pl
Created
June 19, 2023 13:56
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &fromARRAY_WITH_DEFAULT();} | |
| 1; | |
| sub fromARRAY_WITH_DEFAULT { | |
| my $input = shift || "s"; | |
| print " =============== FROM ARRAY ===============\n" if $DEBUG > 0; | |
| my @ARRAY = @_; |
earnhardt3rd
/ fromHASH.pl
Created
June 19, 2023 13:56
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &fromHASH();} | |
| 1; | |
| sub fromHASH { | |
| print " =============== FROM HASH ===============\n" if $DEBUG > 0; | |
| my %H = @_; | |
| my %RTN; |
earnhardt3rd
/ fromHASHKeys2RRAAY.pl
Created
June 19, 2023 13:56
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &fromHASHKeys2RRAAY();} | |
| 1; | |
| sub fromHASHKeys2RRAAY { | |
| print " =============== FROM HASH KEY 2 ARRAY===============\n" if $DEBUG > 0; | |
| my %H = @_; | |
| my %RTN; |
earnhardt3rd
/ fromHASH_SINGLE.pl
Created
June 19, 2023 13:56
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &fromHASH_SINGLE();} | |
| 1; | |
| sub fromHASH_SINGLE { | |
| print " =============== FROM HASH ===============\n" if $DEBUG > 0; | |
| my %H = @_; | |
| my %RTN; |
earnhardt3rd
/ getATT.pl
Created
June 19, 2023 13:56
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &getATT();} | |
| 1; | |
| sub getATT { | |
| my $a = shift || ""; | |
| my $v = shift || ""; | |
| my $s = shift || ""; |
earnhardt3rd
/ ADD_2_PATH.pl
Created
June 19, 2023 13:59
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &ADD_2_PATH();} | |
| 1; | |
| sub ADD_2_PATH { | |
| my $ADD_PATH_STR = shift || ""; | |
| if ($ADD_PATH_STR eq "") {return;} | |
| if (! -d $ADD_PATH_STR) { |
earnhardt3rd
/ Ask.pl
Created
June 19, 2023 13:59
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &Ask();} | |
| 1; | |
| sub Ask { | |
| ########################################################################### | |
| #REMS# Ask(Question,Answer1,Answer2,Answer3,etc...) | |
| #REMS# Return: User Selected Answer |
earnhardt3rd
/ buildManualUnixFiles.pl
Created
June 19, 2023 13:59
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &buildManualUnixFiles();} | |
| 1; | |
| sub buildManualUnixFiles { | |
| my $line = $_[0]; | |
| $line =~ s/\\/\//g; | |
| print " U:$line\n" if $DEBUG > 0; |
earnhardt3rd
/ buildManualWinFiles.pl
Created
June 19, 2023 13:59
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &buildManualWinFiles();} | |
| 1; | |
| sub buildManualWinFiles { | |
| my $line = $_[0]; | |
| print " W:$line\n" if $DEBUG > 0; | |
| my $to = $line; |