Changeset 28766


Ignore:
Timestamp:
2013-12-18T10:20:09+13:00 (8 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:
1 edited

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+(.*)$/)
Note: See TracChangeset for help on using the changeset viewer.