20 lines
318 B
Perl
20 lines
318 B
Perl
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;
|
|
}
|