mirror of
https://github.com/Cisco-Talos/clamav.git
synced 2025-11-08 12:01:01 +00:00
24 lines
428 B
Perl
24 lines
428 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my %reallocs;
|
||
|
|
my %mallocs;
|
||
|
|
while (<>) {
|
||
|
|
if (/realloc @ 0x([0-9a-f]+)/) {
|
||
|
|
$reallocs{$1}="";
|
||
|
|
}
|
||
|
|
if (/malloc 0x([0-9a-f]+) size ([0-9]+)/) {
|
||
|
|
$mallocs{$1}=$2;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
my %sizes;
|
||
|
|
while (my ($address, $size) = each(%mallocs)) {
|
||
|
|
if (not defined $reallocs{$address}) {
|
||
|
|
$sizes{$size}++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
while (my ($size, $count) = each(%sizes)) {
|
||
|
|
print "$size, /* $count */\n";
|
||
|
|
}
|