mirror of
https://github.com/Cisco-Talos/clamav.git
synced 2026-02-05 12:31:41 -05:00
18 lines
244 B
Perl
18 lines
244 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my %frags = ();
|
|
|
|
while (<>) {
|
|
chomp;
|
|
next unless /^LibClamAV Warning: [mc]alloc .* size (\d+) .*$/;
|
|
$frags{$1}++;
|
|
}
|
|
|
|
foreach (sort {$a<=>$b} (keys(%frags))) {
|
|
print "$_, /* ($frags{$_}) */\n";
|
|
}
|
|
|