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

Timestamp:

Mar 8, 2023, 9:44:22 AM (3 years ago)

Author:

eugene

Message:

updates to rawfix

File:

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

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

@@ -21 +21 @@
 
 # read the list of instances:
-my @ins_list = &load_instance_list ($input);
+my ($ins_list_r, $dst_list_r, $md5_list_r) = &load_instance_list ($input);
 
 my $output = $input;
@@ -29 +29 @@
 open (OUTFILE, ">$output");
 
-foreach my $instance (@ins_list) {
+# foreach my $instance (@$ins_list_r) {
+for (my $i = 0; $i < @$ins_list_r; $i ++) {
+
+    my $instance   = $ins_list_r->[$i];
+    my $data_state = $dst_list_r->[$i];
+    my $md5sum_tru = $md5_list_r->[$i];
 
     my $filename = $instance;
     $filename =~ s|file://||;
-    # print "filename: $filename\n";
 
-    my $line = `md5sum $filename`;
+    my $line;
+    if (0) {
+        $line = "fakevalue $filename"; # XXX TEST: disable calculation:
+    } else {
+        $line = `md5sum $filename`;
+    }
 
     my ($md5sum, $rawfile) = split (" ", $line);
-    # print "md5sum: $md5sum\n";
-
-    print OUTFILE "$instance $md5sum\n";
+    print OUTFILE "$instance $data_state $md5sum_tru $md5sum\n";
 }
 close OUTFILE;
-
-die "all done";
+exit 0;
 
 # read the list of chip_ids:
@@ -50 +56 @@
     my $infile = $_[0];
 
-    my @ins_list;
+    my (@ins_list, @dst_list, @md5_list);
 
     open(FILE,$infile) or die "cannot open file $infile\n"; 
@@ -61 +67 @@
         my @words = split (/\s+/,$line);
 
-        if (@words != 1) { die "error in input $infile : $line\n"; }
+        if (@words != 3) { die "error in input $infile : $line\n"; }
         push (@ins_list, $words[0]);
+        push (@dst_list, $words[1]);
+        push (@md5_list, $words[2]);
     }
     close (FILE);
 
-    return @ins_list;
+    return (\@ins_list, \@dst_list, \@md5_list);
 }