failed-syscalls.pl (2d8ad8719591fa803b0d589ed057fa46f49b7155) | failed-syscalls.pl (07100877ea8fd9b2feabb4dd78f3322892f6bd77) |
---|---|
1# failed system call counts 2# (c) 2010, Tom Zanussi <tzanussi@gmail.com> 3# Licensed under the terms of the GNU GPL License version 2 4# 5# Displays system-wide failed system call totals 6# If a [comm] arg is specified, only syscalls called by [comm] are displayed. 7 8use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/Perf-Trace-Util/lib"; --- 12 unchanged lines hidden (view full) --- 21 $common_pid, $common_comm, 22 $id, $ret) = @_; 23 24 if ($ret < 0) { 25 $failed_syscalls{$common_comm}++; 26 } 27} 28 | 1# failed system call counts 2# (c) 2010, Tom Zanussi <tzanussi@gmail.com> 3# Licensed under the terms of the GNU GPL License version 2 4# 5# Displays system-wide failed system call totals 6# If a [comm] arg is specified, only syscalls called by [comm] are displayed. 7 8use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/Perf-Trace-Util/lib"; --- 12 unchanged lines hidden (view full) --- 21 $common_pid, $common_comm, 22 $id, $ret) = @_; 23 24 if ($ret < 0) { 25 $failed_syscalls{$common_comm}++; 26 } 27} 28 |
29sub syscalls::sys_exit 30{ 31 raw_syscalls::sys_exit(@_) 32} 33 |
|
29sub trace_end 30{ 31 printf("\nfailed syscalls by comm:\n\n"); 32 33 printf("%-20s %10s\n", "comm", "# errors"); 34 printf("%-20s %6s %10s\n", "--------------------", "----------"); 35 36 foreach my $comm (sort {$failed_syscalls{$b} <=> $failed_syscalls{$a}} 37 keys %failed_syscalls) { 38 next if ($for_comm && $comm ne $for_comm); 39 40 printf("%-20s %10s\n", $comm, $failed_syscalls{$comm}); 41 } 42} | 34sub trace_end 35{ 36 printf("\nfailed syscalls by comm:\n\n"); 37 38 printf("%-20s %10s\n", "comm", "# errors"); 39 printf("%-20s %6s %10s\n", "--------------------", "----------"); 40 41 foreach my $comm (sort {$failed_syscalls{$b} <=> $failed_syscalls{$a}} 42 keys %failed_syscalls) { 43 next if ($for_comm && $comm ne $for_comm); 44 45 printf("%-20s %10s\n", $comm, $failed_syscalls{$comm}); 46 } 47} |