iertutil.dll unnamed exports

#!perl -w
use strict;
use warnings;
use IDA;

my$with_addr = 0;

my$exp_cnt = GetEntryPointQty();
my$dparm = GetLongPrm(INF_SHORT_DN);
my($fh, $name, $mang, $i, $ord, $addr);
if($exp_cnt)
{
open($fh, '>', "exp")ordie("Cannot open file exp, error $!\n");
for($i = 0; $i< $exp_cnt; $i++ )
{
$ord = GetEntryOrdinal($i);
$name = GetEntryName($ord);
$addr = GetEntryPoint($ord);
nextif($addr == BADADDR );
nextif($name !~ /_\d+$/i);
$mang = GetTrueNameEx(BADADDR, $addr);
$name = Demangle($mang, $dparm);
$name =~ s/\(.*\)//g;
if($namene'')
{
if($with_addr)
{
printf($fh"%d%X%s ; %s\n", $ord, $addr, $name, $mang);
}else{
printf($fh"%d%s ; %s\n", $ord, $name, $mang);
}
}else{
if($with_addr)
{
printf($fh"%d%X%s\n", $ord, $addr, $mang);
}else{
printf($fh"%d%s\n", $ord, $mang);
}
}
}
close$fh;
}