Changeset 42446 for trunk/tools/eam/rawfix.20230221/src/fix_chip_locations.pl

Timestamp:

Apr 10, 2023, 11:57:03 AM (3 years ago)

Author:

eugene

Message:

bug fixes, making iterations work

File:

• trunk/tools/eam/rawfix.20230221/src/fix_chip_locations.pl (modified) (4 diffs)

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

@@ -40 +40 @@
 my $Ncul2 = 0;
 my $Ncul3 = 0;
+my $Nfail = 0;
 
 # load the lists of good and fail chips
@@ -146 +147 @@
                 close (OUTFILE);
             }
-            if ($goodMD5) { $Ndups++; } else { $Nfail ++; }
+            ## if we know the MD5 is bad, add to Nfail, otherwise add to Ndups
+            if ($haveMD5 && !$goodMD5) {
+                $Nfail ++; 
+            } else { 
+                $Ndups++; 
+            } 
             next; 
         }
@@ -162 +168 @@
                 print OUTFILE "$newfile $datast $md5sum\n";
                 close (OUTFILE);
-            }
-            if ($goodMD5) { $Nxbck++; } else { $Nfail ++; }
+            } 
+            ## if we know the MD5 is bad, add to Nfail, otherwise add to Nxbck:
+            if ($haveMD5 && !$goodMD5) {
+                $Nfail ++; 
+            } else { 
+                $Nxbck++; 
+            } 
             next; 
         }
@@ -193 +204 @@
             }
 
-            # these are done in stage 3:
-            if ($goodMD5) { 
+            ## if we know the MD5 is bad, add to Nfail, otherwise add to NculX
+            if ($haveMD5 && !$goodMD5) {
+                $Nfail ++; 
+            } else { 
                 if ($state eq "CUL1:") { $Ncul1++; next; }
                 if ($state eq "CUL2:") { $Ncul2++; next; }
                 if ($state eq "CUL3:") { $Ncul3++; next; }
-            } else { $Nfail ++; }
+            } 
         }
     }