1#!/usr/bin/env perl 2# $Id: ttfsum,v 1.4 2003/08/05 16:26:37 s42335 Exp $ 3# 4# usage: ttfsum table1 table2 ... 5# 6# display the total checksum of given files. 7# 8# 2002/2/3, by 1@2ch 9# * public domain * 10# 11 12$p=$0; $p=~s:[^/]+$::; push(@INC,$p); 13require 'lib_util.pl'; 14require 'lib_ttfdir.pl'; 15 16if (0 == @ARGV) { 17 print "usage: $0 tablefile ...\n"; 18 exit 1; 19} 20 21$s=0; 22foreach $ttf (@ARGV) { 23 $s = addint($s, ttf_calc_sum($ttf)); 24} 25printf "0x%lx\n", $s; 26