47902f3611
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: Tom Zanussi <tzanussi@gmail.com> Acked-by: Thomas 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: Ingo Molnar <mingo@elte.hu>
95 lines
1.5 KiB
Perl
95 lines
1.5 KiB
Perl
package Perf::Trace::Util;
|
|
|
|
use 5.010000;
|
|
use strict;
|
|
use warnings;
|
|
|
|
require Exporter;
|
|
|
|
our @ISA = qw(Exporter);
|
|
|
|
our %EXPORT_TAGS = ( 'all' => [ qw(
|
|
) ] );
|
|
|
|
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
|
|
|
|
our @EXPORT = qw(
|
|
avg nsecs nsecs_secs nsecs_nsecs nsecs_usecs print_nsecs
|
|
clear_term
|
|
);
|
|
|
|
our $VERSION = '0.01';
|
|
|
|
sub avg
|
|
{
|
|
my ($total, $n) = @_;
|
|
|
|
return $total / $n;
|
|
}
|
|
|
|
my $NSECS_PER_SEC = 1000000000;
|
|
|
|
sub nsecs
|
|
{
|
|
my ($secs, $nsecs) = @_;
|
|
|
|
return $secs * $NSECS_PER_SEC + $nsecs;
|
|
}
|
|
|
|
sub nsecs_secs {
|
|
my ($nsecs) = @_;
|
|
|
|
return $nsecs / $NSECS_PER_SEC;
|
|
}
|
|
|
|
sub nsecs_nsecs {
|
|
my ($nsecs) = @_;
|
|
|
|
return $nsecs % $NSECS_PER_SEC;
|
|
}
|
|
|
|
sub nsecs_str {
|
|
my ($nsecs) = @_;
|
|
|
|
my $str = sprintf("%5u.%09u", nsecs_secs($nsecs), nsecs_nsecs($nsecs));
|
|
|
|
return $str;
|
|
}
|
|
|
|
sub clear_term
|
|
{
|
|
print "\x1b[H\x1b[2J";
|
|
}
|
|
|
|
1;
|
|
__END__
|
|
=head1 NAME
|
|
|
|
Perf::Trace::Util - Perl extension for perf trace
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use Perf::Trace::Util;
|
|
|
|
=head1 SEE ALSO
|
|
|
|
Perf (trace) documentation
|
|
|
|
=head1 AUTHOR
|
|
|
|
Tom Zanussi, E<lt>tzanussi@gmail.com<gt>
|
|
|
|
=head1 COPYRIGHT AND LICENSE
|
|
|
|
Copyright (C) 2009 by Tom Zanussi
|
|
|
|
This library is free software; you can redistribute it and/or modify
|
|
it under the same terms as Perl itself, either Perl version 5.10.0 or,
|
|
at your option, any later version of Perl 5 you may have available.
|
|
|
|
Alternatively, this software may be distributed under the terms of the
|
|
GNU General Public License ("GPL") version 2 as published by the Free
|
|
Software Foundation.
|
|
|
|
=cut
|