Changeset 28766
- Timestamp:
- 2013-12-18T10:20:09+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/bin/script/strace_to_tsv.pl
r28666 r28766 3 3 open(STRACEIN, '<:utf8', 'strace.out') or die('Error! Failed to open file for reading: strace.out'); 4 4 open(TSVOUT, '>:utf8', 'strace.tsv') or die('Error! Failed to open file for writing: strace.tsv'); 5 print TSVOUT "TIMESTAMP\tPID\tSYSCALL\tELAPSED\tTOTALDUR\tTOTALI N\tTOTALCPU\tARGS\tRESULT\n";5 print TSVOUT "TIMESTAMP\tPID\tSYSCALL\tELAPSED\tTOTALDUR\tTOTALIO\tTOTALCPU\tARGS\tRESULT\n"; 6 6 7 7 my $io_function_list = { … … 31 31 while ($line = <STRACEIN>) 32 32 { 33 # Garbage 34 if ($line =~ /^[^\d]+(.*)$/) 35 { 36 $line = $1; 37 } 33 38 # PID Prefix 34 39 if ($line =~ /^(\d+)\s+(.*)$/)
Note:
See TracChangeset
for help on using the changeset viewer.