gecko-dev/tools/footprint/codemap.pl

20 строки
318 B
Perl
Исходник Обычный вид История

2002-02-22 01:24:18 +03:00
while (<>) {
chomp;
if (/^mozilla.exe/) {
$start = 1;
}
if ($start) {
chomp;
@fields = split(/ */);
$bytes = $fields[2];
$bytes =~ s/,//g;
$codesize += $bytes;
}
}
printf "%8.2f K codesize\n", toK($codesize);
sub toK()
{
return $_[0] / 1024;
}