20251125

2025-11-25 00:28:51 +08:00
commit eb3f16c30e
406 changed files with 91653 additions and 0 deletions
@@ -0,0 +1,63 @@
+package CMD_processor;
+
+use strict;
+use warnings;
+
+use Carp;
+
+use vars qw (@ISA @EXPORT); ## set in script using this module for verbose output.
+@ISA = qw(Exporter);
+@EXPORT = qw(process_cmd process_parallel_cmds);
+
+####
+sub process_cmd {
+    my ($cmd) = @_;
+
+    print STDERR "CMD: $cmd\n";
+    my $ret = system($cmd);
+
+    if ($ret) {
+        die "Error, cmd: $cmd died with ret ($ret)";
+    }
+
+    return; # all good.
+}
+
+####
+sub process_parallel_cmds {
+    my (@cmds) = @_;
+
+    print "Processing commands:\n" . join("\n", @cmds) . "\n\n";
+    
+
+    foreach my $cmd (@cmds) {
+        my $pid = fork();
+        unless ($pid) {
+            # child
+            &process_cmd($cmd);
+            exit(0);
+        }
+    }
+
+    my $process_failed = 0;
+    while (my $pid = wait()) {
+        if ($pid < 0) {
+            last;
+        }
+        else {
+            if ($?) {
+                print STDERR "-process $pid exited ($?) indicating error.\n";
+                $process_failed = 1;
+            }
+        }
+    }
+
+    if ($process_failed) {
+        die "Error, at least one command failed.  See above errors for more details. ";
+    }
+
+    return; # all good.
+}
+
+1; #EOM
+