Changeset 42444 for trunk/tools/eam/rawfix.20230221/src/get_md5s_instances.pl

Timestamp:

Apr 6, 2023, 6:00:06 PM (3 years ago)

Author:

eugene

Message:

big re-work to allow repeat, iterated fixes

File:

• trunk/tools/eam/rawfix.20230221/src/get_md5s_instances.pl (modified) (7 diffs)

trunk/tools/eam/rawfix.20230221/src/get_md5s_instances.pl

@@ -11 +11 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version );
 
-# USAGE: get_md5s_instances.pl --hostname (hostname) --input (file) --stage (v0,v1,etc)
+# USAGE: get_md5s_instances.pl --hostname (hostname) --input (file) --stage (0,1,etc)
 
 my ($myhost, $input, $stage) = &parse_cmdopts;
@@ -26 +26 @@
 
 if ($output eq $input) { die "output file ($output) matches input file ($input)\n"; }
+
+# read in both instance
+my $out_hash_r;
 if (-e $output) {
-    # check that all instances are in the output file?
-    print "$output exists, skipping\n";
-    exit 0;
+    $out_hash_r = &load_output_list ($output);
 }
 
-open (OUTFILE, ">$output");
+open (OUTFILE, ">>$output");
 
 # foreach my $instance (@$ins_list_r) {
@@ -41 +42 @@
     my $md5sum_tru = $md5_list_r->[$i];
 
+    # if the instance is already in the output file, skip it
+    if (defined $out_hash_r) {
+        my $name = $out_hash_r->{$instance};
+        if (defined $name) {
+            print STDERR "skipping $instance (already in output)\n";
+            next;
+        }
+    }
+
     my $filename = $instance;
     $filename =~ s|file://||;
-    
+
     # check for the existence of the file first:
     unless (-e $filename) {
@@ -63 +73 @@
 exit 0;
 
-# read the list of chip_ids:
+# read the instance info
 sub load_instance_list {
     my $infile = $_[0];
@@ -88 +98 @@
 }
 
+# read the instance list in the output file
+sub load_output_list {
+    my $infile = $_[0];
+
+    my (%out_hash);
+
+    open(FILE,$infile) or die "cannot open file $infile\n"; 
+
+    my @lines = <FILE>;
+
+    foreach my $line (@lines) {
+        chomp $line;
+        if ($line =~ /^\s*#/) { next; } # skip lines with leading #
+        my @words = split (/\s+/,$line);
+
+        if (@words != 4) { die "error in input $infile : $line\n"; }
+        $out_hash{$words[0]} = 1;
+    }
+    close (FILE);
+
+    return (\%out_hash);
+}
+
 sub parse_cmdopts {
 
@@ -95 +128 @@
     pod2usage( -msg => "Provide the input list with --input", -exitval => 2) unless defined $input;
     pod2usage( -msg => "Define the host machine with --hostname", -exitval => 2) unless defined $myhost;
-    pod2usage( -msg => "Define the stage (v0, v1, etc) with --stage", -exitval => 2) unless defined $stage;
+    pod2usage( -msg => "Define the stage (0, 1, etc) with --stage", -exitval => 2) unless defined $stage;
+    
+    # check that stage is an integer
+    unless (is_integer ($stage)) { die "stage must be a non-negative integer\n"; }
+    unless ($stage >= 0) { die "stage must be a non-negative integer\n"; }
     
     return ($myhost, $input, $stage);
@@ -106 +143 @@
     return $status;
 }
+
+sub is_integer {
+   defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
+}
+