show-symbols.pl

来自「内存管理工具Exmap。该工具比 ps 或 top 更精确」· PL 代码 · 共 16 行

#!/usr/bin/perl
#
# (c) John Berthels 2005 <[e-mail]>. See COPYING for license.
#
use warnings;
use strict;
use Elf;

my $file = shift;
die("No file specified") unless $file;
my $e = Elf->new($file);
foreach my $s ($e->defined_symbols) {
    print join(" ", sprintf("0x%08x", $s->value), $s->size, $s->name), "\n";
}