redirecting logs

wdq1.pl

@@ -469,6 +469,7 @@ my $fo_count= $fo_rec->open();
             'id' => $id,
             'tlt_l' => \%tlt_l,
             'tlt_d' => \%tlt_d,
+            # P31 => $P31,
           };
       }
     }
@@ -562,7 +563,7 @@ my $fo_count= $fo_rec->open();
       print FO_AUTHCTRL ",\n" if ($cnt_authctrl);
       print FO_AUTHCTRL encode_json($authctrl);
       $cnt_authctrl++;
-    printf ("%8ld authority control records\n", $cnt_authctrl)  if (($cnt_authctrl % 1000) == 0);
+      printf ("%9ld authority control records\n", $cnt_authctrl)  if (($cnt_authctrl % 1000) == 0);
     }
 
     last if (defined ($MAX_INPUT_LINES) && $line >= $MAX_INPUT_LINES); ### DEBUG
@@ -604,24 +605,31 @@ foreach my $prop_num (@prop_ids)
   }
   close (PROPS_LIST);
 
-open (PROPS, '>:utf8', $data_dir . '/props.json') or die;
+  if (open (PROPS, '>:utf8', $data_dir . '/props.json'))
+  {
     print PROPS encode_json (\%props);
     close (PROPS);
+  }
+
+  my $stats_opened= 0;
+  if (open (STATS, '>:utf8', $data_dir . '/conversion-stats.log'))
+  {
+    $stats_opened= 1;
+    print STATS "pos: $pos\n";
+    print STATS "types: ", Dumper (\%types);
+    print STATS "attrs: ", Dumper (\%attrs);
+    print STATS "lang_labels: ", Dumper (\%lang_labels);
+    print STATS "lang_descr: ", Dumper (\%lang_descr);
+    print STATS "lang_aliases: ", Dumper (\%lang_aliases);
+    print STATS "name_sitelinks: ", Dumper (\%name_sitelinks);
+    print STATS "prop_claims: ", Dumper (\%prop_claims);
 
-print "pos: $pos\n";
-print "types: ", Dumper (\%types);
-print "attrs: ", Dumper (\%attrs);
-print "lang_labels: ", Dumper (\%lang_labels);
-print "lang_descr: ", Dumper (\%lang_descr);
-print "lang_aliases: ", Dumper (\%lang_aliases);
-print "name_sitelinks: ", Dumper (\%name_sitelinks);
-print "prop_claims: ", Dumper (\%prop_claims);
-
-print "max_id: $max_id\n";
-print "max_prop: $max_prop\n";
-print "lines: $line\n";
-print "fo_count: $fo_count\n";
-print "cnt_authctrl: $cnt_authctrl\n";
+    print STATS "max_id: $max_id\n";
+    print STATS "max_prop: $max_prop\n";
+    print STATS "lines: $line\n";
+    print STATS "fo_count: $fo_count\n";
+    print STATS "cnt_authctrl: $cnt_authctrl\n";
+  }
 
   if ($exp_bitmap == 1)
   {
@@ -651,6 +659,14 @@ print "cnt_authctrl: $cnt_authctrl\n";
   print "started:  ", scalar localtime ($t_start), "\n";
   print "finished: ", scalar localtime ($t_end), "\n";
   print "duration: ", $t_end-$t_start, " seconds\n";
+
+  if ($stats_opened)
+  {
+    print STATS "started:  ", scalar localtime ($t_start), "\n";
+    print STATS "finished: ", scalar localtime ($t_end), "\n";
+    print STATS "duration: ", $t_end-$t_start, " seconds\n";
+    close (STATS);
+  }
 }
 
 sub counter