#!/usr/bin/perl
###############################################################################
#
#  機能 :
#         セグメントマップのトータルサイズを計算
#  書式 :
#         MapTotal.pl <ConvSegmentMap.plで生成したファイル>
#
#   $Id: MapTotal.pl,v 1.3 2000-05-25 11:16:56+09 otsuki Exp $
#
###############################################################################
{
    $total_head = "\t* Total "; 

    $total_byte = 0;
    while(<>) {
	print $_;
	chop;
	s/ byte[0-9x〜 a-f]*//;
	$total_byte += $_;
    }
    print("\n");
    printf("$total_head  %10d byte \n\n\n", $total_byte);
}