bcefe12eff
Add Perf-Trace-Util Perl module and some scripts that use it. Core.pm contains Perl code to define and access flag and symbolic fields. Util.pm contains general-purpose utility functions. Also adds some makefile bits to install them in libexec/perf-core/scripts/perl (or wherever perfexec_instdir points). Signed-off-by: Tom Zanussi <tzanussi@gmail.com> Cc: fweisbec@gmail.com Cc: rostedt@goodmis.org Cc: anton@samba.org Cc: hch@infradead.org LKML-Reference: <1259133352-23685-5-git-send-email-tzanussi@gmail.com> Signed-off-by: Ingo Molnar <mingo@elte.hu>
89 lines
1.4 KiB
Perl
89 lines
1.4 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
|
|
);
|
|
|
|
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_secs($nsecs);
|
|
}
|
|
|
|
sub nsecs_str {
|
|
my ($nsecs) = @_;
|
|
|
|
my $str = sprintf("%5u.%09u", nsecs_secs($nsecs), nsecs_nsecs($nsecs));
|
|
|
|
return $str;
|
|
}
|
|
|
|
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
|