Changeset 28766 for gs2-extensions

Show
Ignore:
Timestamp:
18.12.2013 10:20:09 (6 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/parallel-building/trunk/src/bin/script/strace_to_tsv.pl

    r28666 r28766  
    33open(STRACEIN, '<:utf8', 'strace.out') or die('Error! Failed to open file for reading: strace.out'); 
    44open(TSVOUT, '>:utf8', 'strace.tsv') or die('Error! Failed to open file for writing: strace.tsv'); 
    5 print TSVOUT "TIMESTAMP\tPID\tSYSCALL\tELAPSED\tTOTALDUR\tTOTALIN\tTOTALCPU\tARGS\tRESULT\n"; 
     5print TSVOUT "TIMESTAMP\tPID\tSYSCALL\tELAPSED\tTOTALDUR\tTOTALIO\tTOTALCPU\tARGS\tRESULT\n"; 
    66 
    77my $io_function_list = { 
     
    3131while ($line = <STRACEIN>) 
    3232{ 
     33  # Garbage 
     34  if ($line =~ /^[^\d]+(.*)$/) 
     35  { 
     36    $line = $1; 
     37  } 
    3338  # PID Prefix 
    3439  if ($line =~ /^(\d+)\s+(.*)$/)