Changeset 28766 for gs2-extensions/parallel-building

Timestamp:

2013-12-18T10:20:09+13:00 (10 years ago)

Author:

jmt12

Message:

Removing an occasional few characters of garbage that turn up in the log lines (anything before the timestamp, basically) for reasons both unknown and mysterious

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/strace_to_tsv.pl (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/bin/script/strace_to_tsv.pl

@@ -3 +3 @@
 open(STRACEIN, '<:utf8', 'strace.out') or die('Error! Failed to open file for reading: strace.out');
 open(TSVOUT, '>:utf8', 'strace.tsv') or die('Error! Failed to open file for writing: strace.tsv');
-print TSVOUT "TIMESTAMP\tPID\tSYSCALL\tELAPSED\tTOTALDUR\tTOTALIN\tTOTALCPU\tARGS\tRESULT\n";
+print TSVOUT "TIMESTAMP\tPID\tSYSCALL\tELAPSED\tTOTALDUR\tTOTALIO\tTOTALCPU\tARGS\tRESULT\n";
 
 my $io_function_list = {
@@ -31 +31 @@
 while ($line = <STRACEIN>)
 {
+  # Garbage
+  if ($line =~ /^[^\d]+(.*)$/)
+  {
+    $line = $1;
+  }
   # PID Prefix
   if ($line =~ /^(\d+)\s+(.*)$/)