use Data::Dumper; $Data::Dumper::Sortkeys = 1; if (@ARGV != 1) { print("Usage e.g.: cat stubs_entry.S stubs_entry_2.S | $0 dump.bin.dis > outfile "); exit; } $dissfile = $ARGV[0]; 1. * $stubfile = $ARGV[1]; 1. * 2. 1. * 3. 2. 1. * 4. 3. 2. 1. * 5. 4. 3. 2. 1. * print STDERR "scan stub file "; my %nstub_names; # hash by name to eliminate doubles 1. * open(IN, "<$stubfile") or die "cannot open $stubfile: $!"; while () { if (/^NH?STUB\((.*),.*0x(xdigit:*)/i) { my $addr = sprintf("%08x", hex($2)); #$nstub{$addr} = $1; $nstub_names{$1} = $addr; } } close IN;