Donate to e Foundation | Murena handsets with /e/OS | Own a part of Murena! Learn more

Commit 47902f36 authored by Tom Zanussi's avatar Tom Zanussi Committed by Ingo Molnar
Browse files

perf trace/scripting: Add rwtop and sctop scripts 



A couple of scripts, one in Python and the other in Perl, that
demonstrate 'live mode' tracing.  For each, the output of the
perf event stream is fed continuously to the script, which
continuously aggregates the data and reports the current results
every 3 seconds, or at the optionally specified interval.  After
the current results are displayed, the aggregations are cleared
and the cycle begins anew.

To run the scripts, simply pipe the output of the 'perf trace
record' step as input to the corresponding 'perf trace report'
step, using '-' as the filename to -o and -i:

 $ perf trace record sctop -o - | perf trace report sctop -i -

Also adds clear_term() utility functions to the Util.pm and
Util.py utility modules, for use by any script to clear the
screen.

Signed-off-by: default avatarTom Zanussi <tzanussi@gmail.com>
Acked-by: default avatarThomas Gleixner <tglx@linutronix.de>
Cc: fweisbec@gmail.com
Cc: rostedt@goodmis.org
Cc: k-keiichi@bx.jp.nec.com
Cc: acme@ghostprotocols.net
LKML-Reference: <1270184365-8281-10-git-send-email-tzanussi@gmail.com>
Signed-off-by: default avatarIngo Molnar <mingo@elte.hu>
parent c7929e47

tools/perf/scripts/perl/Perf-Trace-Util/lib/Perf/Trace/Util.pm

+6 −0
Original line number Original line Diff line number Diff line
@@ -15,6 +15,7 @@ our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 




our @EXPORT = qw(

our @EXPORT = qw(

avg nsecs nsecs_secs nsecs_nsecs nsecs_usecs print_nsecs

avg nsecs nsecs_secs nsecs_nsecs nsecs_usecs print_nsecs

clear_term

);

);





our $VERSION = '0.01';

our $VERSION = '0.01';
@@ -55,6 +56,11 @@ sub nsecs_str { 
    return $str;

    return $str;

}

}





sub clear_term

{

    print "\x1b[H\x1b[2J";

}



1;

1;

__END__

__END__

=head1 NAME

=head1 NAME

tools/perf/scripts/perl/bin/rwtop-record

0 → 100644
+2 −0
Original line number Original line Diff line number Diff line 
#!/bin/bash

perf record -c 1 -f -a -M -R -e syscalls:sys_enter_read -e syscalls:sys_exit_read -e syscalls:sys_enter_write -e syscalls:sys_exit_write $@

tools/perf/scripts/perl/bin/rwtop-report

0 → 100644
+23 −0
Original line number Original line Diff line number Diff line 
#!/bin/bash

# description: system-wide r/w top

# args: [interval]

n_args=0

for i in "$@"

do

    if expr match "$i" "-" > /dev/null ; then

	break

    fi

    n_args=$(( $n_args + 1 ))

done

if [ "$n_args" -gt 1 ] ; then

    echo "usage: rwtop-report [interval]"

    exit

fi

if [ "$n_args" -gt 0 ] ; then

    interval=$1

    shift

fi

perf trace $@ -s ~/libexec/perf-core/scripts/perl/rwtop.pl $interval

tools/perf/scripts/perl/rwtop.pl

0 → 100644
+177 −0
Original line number Original line Diff line number Diff line 
#!/usr/bin/perl -w

# (c) 2010, Tom Zanussi <tzanussi@gmail.com>

# Licensed under the terms of the GNU GPL License version 2



# read/write top

#

# Periodically displays system-wide r/w call activity, broken down by

# pid.  If an [interval] arg is specified, the display will be

# refreshed every [interval] seconds.  The default interval is 3

# seconds.



use 5.010000;

use strict;

use warnings;



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::Util;



my $default_interval = 3;

my $nlines = 20;

my $print_thread;



my %reads;

my %writes;



my $interval = shift;

if (!$interval) {

    $interval = $default_interval;

}



sub syscalls::sys_exit_read

{

    my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,

	$common_pid, $common_comm,

	$nr, $ret) = @_;



    if ($ret > 0) {

	$reads{$common_pid}{bytes_read} += $ret;

    } else {

	if (!defined ($reads{$common_pid}{bytes_read})) {

	    $reads{$common_pid}{bytes_read} = 0;

	}

	$reads{$common_pid}{errors}{$ret}++;

    }

}



sub syscalls::sys_enter_read

{

    my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,

	$common_pid, $common_comm,

	$nr, $fd, $buf, $count) = @_;



    $reads{$common_pid}{bytes_requested} += $count;

    $reads{$common_pid}{total_reads}++;

    $reads{$common_pid}{comm} = $common_comm;

}



sub syscalls::sys_exit_write

{

    my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,

	$common_pid, $common_comm,

	$nr, $ret) = @_;



    if ($ret <= 0) {

	$writes{$common_pid}{errors}{$ret}++;

    }

}



sub syscalls::sys_enter_write

{

    my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,

	$common_pid, $common_comm,

	$nr, $fd, $buf, $count) = @_;



    $writes{$common_pid}{bytes_written} += $count;

    $writes{$common_pid}{total_writes}++;

    $writes{$common_pid}{comm} = $common_comm;

}



sub trace_begin

{

    $SIG{ALRM} = \&print_totals;

    alarm 1;

}



sub trace_end

{

    print_unhandled();

    print_totals();

}



sub print_totals

{

    my $count;



    $count = 0;



    clear_term();



    printf("\nread counts by pid:\n\n");



    printf("%6s  %20s  %10s  %10s  %10s\n", "pid", "comm",

	   "# reads", "bytes_req", "bytes_read");

    printf("%6s  %-20s  %10s  %10s  %10s\n", "------", "--------------------",

	   "----------", "----------", "----------");



    foreach my $pid (sort {$reads{$b}{bytes_read} <=>

			       $reads{$a}{bytes_read}} keys %reads) {

	my $comm = $reads{$pid}{comm};

	my $total_reads = $reads{$pid}{total_reads};

	my $bytes_requested = $reads{$pid}{bytes_requested};

	my $bytes_read = $reads{$pid}{bytes_read};



	printf("%6s  %-20s  %10s  %10s  %10s\n", $pid, $comm,

	       $total_reads, $bytes_requested, $bytes_read);



	if (++$count == $nlines) {

	    last;

	}

    }



    $count = 0;



    printf("\nwrite counts by pid:\n\n");



    printf("%6s  %20s  %10s  %13s\n", "pid", "comm",

	   "# writes", "bytes_written");

    printf("%6s  %-20s  %10s  %13s\n", "------", "--------------------",

	   "----------", "-------------");



    foreach my $pid (sort {$writes{$b}{bytes_written} <=>

			       $writes{$a}{bytes_written}} keys %writes) {

	my $comm = $writes{$pid}{comm};

	my $total_writes = $writes{$pid}{total_writes};

	my $bytes_written = $writes{$pid}{bytes_written};



	printf("%6s  %-20s  %10s  %13s\n", $pid, $comm,

	       $total_writes, $bytes_written);



	if (++$count == $nlines) {

	    last;

	}

    }



    %reads = ();

    %writes = ();

    alarm $interval;

}



my %unhandled;



sub print_unhandled

{

    if ((scalar keys %unhandled) == 0) {

	return;

    }



    print "\nunhandled events:\n\n";



    printf("%-40s  %10s\n", "event", "count");

    printf("%-40s  %10s\n", "----------------------------------------",

	   "-----------");



    foreach my $event_name (keys %unhandled) {

	printf("%-40s  %10d\n", $event_name, $unhandled{$event_name});

    }

}



sub trace_unhandled

{

    my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,

	$common_pid, $common_comm) = @_;



    $unhandled{$event_name}++;

}

tools/perf/scripts/python/Perf-Trace-Util/lib/Perf/Trace/Util.py

+3 −0
Original line number Original line Diff line number Diff line
@@ -23,3 +23,6 @@ def nsecs_nsecs(nsecs): 
def nsecs_str(nsecs):

def nsecs_str(nsecs):

    str = "%5u.%09u" % (nsecs_secs(nsecs), nsecs_nsecs(nsecs)),

    str = "%5u.%09u" % (nsecs_secs(nsecs), nsecs_nsecs(nsecs)),

    return str

    return str



def clear_term():

    print("\x1b[H\x1b[2J")