[Scripts][Perl] unmangle指定檔案中所有mangle過的C++符號名

#!/usr/bin/perl
# un-mangle c++ symbol
# assuming the c++filt command is available

use strict;
use warnings;

if ($#ARGV != 0) {
    print "usage:\n";
    print "program filename\n";
}

my $in_filename = $ARGV[0];
open(my $in, "<", $in_filename) or die "Can't not open file $in_filename: $!\n";

$/ = undef;
my $body = <$in>;

while ($body =~ /\<(_Z\w+)[\+|\>]/g) {

    my $mangled_symbol_full = $&;
    my $mangled_symbol = $1;

    my $unmangled_symbol = `c++filt '$mangled_symbol'`;
    $unmangled_symbol =~ tr/\n//d;

    #print $mangled_symbol;
    #print "\n";
    #print $unmangled_symbol;
    #print "\n";

    $body =~ s/$mangled_symbol/$unmangled_symbol/g;
}

print $body;
print "\n";

close $in or die "$in: $!\n";

 

 

註：如果你拿到的是objdump出來的東西，就沒必要這麼複雜了，objdump -C就可以unmangle好了。