forked from Qortal/Brooklyn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
1.1 KiB
47 lines
1.1 KiB
# failed system call counts |
|
# (c) 2010, Tom Zanussi <[email protected]> |
|
# Licensed under the terms of the GNU GPL License version 2 |
|
# |
|
# Displays system-wide failed system call totals |
|
# If a [comm] arg is specified, only syscalls called by [comm] are displayed. |
|
|
|
use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/Perf-Trace-Util/lib"; |
|
use lib "./Perf-Trace-Util/lib"; |
|
use Perf::Trace::Core; |
|
use Perf::Trace::Context; |
|
use Perf::Trace::Util; |
|
|
|
my $for_comm = shift; |
|
|
|
my %failed_syscalls; |
|
|
|
sub raw_syscalls::sys_exit |
|
{ |
|
my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs, |
|
$common_pid, $common_comm, $common_callchain, |
|
$id, $ret) = @_; |
|
|
|
if ($ret < 0) { |
|
$failed_syscalls{$common_comm}++; |
|
} |
|
} |
|
|
|
sub syscalls::sys_exit |
|
{ |
|
raw_syscalls::sys_exit(@_) |
|
} |
|
|
|
sub trace_end |
|
{ |
|
printf("\nfailed syscalls by comm:\n\n"); |
|
|
|
printf("%-20s %10s\n", "comm", "# errors"); |
|
printf("%-20s %6s %10s\n", "--------------------", "----------"); |
|
|
|
foreach my $comm (sort {$failed_syscalls{$b} <=> $failed_syscalls{$a}} |
|
keys %failed_syscalls) { |
|
next if ($for_comm && $comm ne $for_comm); |
|
|
|
printf("%-20s %10s\n", $comm, $failed_syscalls{$comm}); |
|
} |
|
}
|
|
|