Beta Shell v2.0

File Manager

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Perf-Trace-Util	-	drwxr-xr-x	2025-04-30 20:37:30	Del
bin	-	drwxr-xr-x	2025-05-28 10:13:24	Del
check-perf-trace.pl	2.62 KB	-rw-r--r--	2025-04-30 20:37:30	Edit Del
failed-syscalls.pl	1.15 KB	-rw-r--r--	2025-04-30 20:37:30	Edit Del
rw-by-file.pl	2.88 KB	-rwxr-xr-x	2025-04-30 20:37:30	Edit Del
rw-by-pid.pl	5.18 KB	-rwxr-xr-x	2025-04-30 20:37:30	Edit Del
rwtop.pl	4.56 KB	-rwxr-xr-x	2025-04-30 20:37:30	Edit Del
wakeup-latency.pl	2.77 KB	-rwxr-xr-x	2025-04-30 20:37:30	Edit Del

Editing: failed-syscalls.pl (1.15 KB)

# failed system call counts
# (c) 2010, Tom Zanussi <tzanussi@gmail.com>
# 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});
    }
}