count-instruction.pl

use strict;
use warnings;

my @binaries = qw[
    /boot/vmlinuz-linux
    /usr/bin/bash
    /usr/bin/tar
    /usr/bin/gzip
    /usr/bin/geany
    /usr/bin/python
    /usr/bin/perl
    /usr/bin/thunar
    /usr/bin/firefox
    /usr/lib/xorg/modules/drivers/radeon_drv.so
    /usr/bin/git
];

for my $input (sort @binaries) {
    my $objtype = `objdump -f $input 2>&1`;
    if (! -e $input or $objtype =~ /not recognized/) {
        warn "Skipping $input.\n";
        next;
    }

    open DUMP, "-|", "objdump -d $input";

    my $sum = 0;
    my $count = 0;
    for (<DUMP>) {
      next if /\(bad\)/;
      next unless /:\t([^\t]*)\t/;
      $sum += scalar(split / /, ($1 =~ s/ *$//r));
      ++$count;
    }
    if ($count == 0) {
      warn "No operations found in $input.\n";
      next;
    }
    print "Average for $input = ", $sum / $count, "\n";
}