show-sections.pl

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

#!/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->all_sections) {
    print join(" ",
	       sprintf("0x%08x", $s->offset),
	       $s->sh_type,
	       $s->name), "\n";
}