Strip functions from MSVC /FAsc that don't exist in a dumpbin /symbols

get_functions.pl

my $filename = @ARGV[0];
system ("cl /Ox /Zc:inline /EHsc /FAsc /c $filename.cpp");
system ("link /dump /symbols $filename.obj > $filename.dmp");

# Collect the function names that are in the object binary 
open DMP, "<./$filename.dmp";
# Find the COFF symbol table, in case there's more in the object dump
while (<DMP>)
{
    last if (index($_, "COFF SYMBOL TABLE") != -1); 
}

my %binary_funcs;
while (<DMP>)
{
    if (/^[[:xdigit:]]{3,8}\s+[[:xdigit:]]{8}\s+SECT[[:xdigit:]]+\s+notype\s\(\).*\|\s([\w\?@\$]+)/) 
    {
        @binary_funcs{$1} = $1;
    }
}
close DMP; 

#print join("\n", keys %binary_funcs);  # What names were found in the dump? 

# Find the same function names in text segments in the COD listing. 
open COD, "<./$filename.cod";
while (<COD>)
{
    if (/^_TEXT\s+SEGMENT$/)
    {
        while (<COD>)
        {
            last if /^_TEXT\s+ENDS$/; # stop if we're out of the text segment

            if (/^([\w\?@\$]+)\s+PROC/)
            {
                my $function = $1;
                if (exists($binary_funcs{$function}))
                {
                    print; # print function name, e.g., _main PROC
                    while (<COD>)
                    {
                        last if (/^$function\s+ENDP$/);
                        print;
                    }
                    print; # print function ENDP, e.g., __main ENDP
                    print "\n";
                }
            }
        }
    }
}