frank.earnhardt earnhardt3rd
earnhardt3rd
/ perl-fromARRAY.pl
Last active
January 7, 2024 02:00
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
| sub fromARRAY { | |
| print " =============== FROM ARRAY ===============\n" if $DEBUG > 0; | |
| my @ARRAY = @_; | |
| if (scalar(@ARRAY) <= 0) {return;} | |
| my @RETURN; | |
| my $ans=""; | |
| my $len = length(scalar(@ARRAY)); | |
| if (uc($MODE) !~ /NO-PROMPT/) { | |
| for (my $i=0;$i<=scalar(@ARRAY)-1 ;$i++) { | |
| my $c = $i+1; |
earnhardt3rd
/ _ADD2PAC.pl
Created
June 19, 2023 13:53
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 = &_ADD2PAC();} | |
| 1; | |
| sub _ADD2PAC { | |
| my $input = shift || ""; | |
| my $ext = shift || ""; | |
| my $PACKAGE = shift || "NEXT_RELEASE"; |
earnhardt3rd
/ ADD_2_PATH.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 = &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: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 = &Ask();} | |
| 1; | |
| sub Ask { | |
| ########################################################################### | |
| #REMS# Ask(Question,Answer1,Answer2,Answer3,etc...) | |
| #REMS# Return: User Selected Answer |
earnhardt3rd
/ buildManualUnixFiles.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 = &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: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 = &buildManualWinFiles();} | |
| 1; | |
| sub buildManualWinFiles { | |
| my $line = $_[0]; | |
| print " W:$line\n" if $DEBUG > 0; | |
| my $to = $line; |
earnhardt3rd
/ chkCRON.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 = &chkCRON();} | |
| 1; | |
| sub chkCRON { | |
| my $CRON_TAG = shift || ""; | |
| $CRON_TAG =~ s/\s+$//g; # Remove trailing Spaces | |
| $CRON_TAG =~ s/\s+//g; # Remove Leading Spaces |
earnhardt3rd
/ cleanUpProc.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 = &cleanUpProc();} | |
| 1; | |
| sub cleanUpProc { | |
| my $pMAIN = shift || ""; | |
| print " cleanUpProc($pMAIN)\n" if $DEBUG > 0; | |
| my %WINDOWS_KILL = ( |
earnhardt3rd
/ D_PDM_TREE.pl
Last active
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 = &D_PDM_TREE();} | |
| 1; | |
| sub D_PDM_TREE { | |
| my $cRef = $_[0]; | |
| my $dFile = $_[1]; | |
| my $ret_msg = "PDM Tree"; |
earnhardt3rd
/ D_USD_CONTACT_METHODS.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 = &D_USD_CONTACT_METHODS();} | |
| 1; | |
| sub D_USD_CONTACT_METHODS { | |
| my $cRef = $_[0]; | |
| my $dFile = $_[1]; | |
| my $ret_msg = "Export Contact Methods"; |
OlderNewer