lst_size

来自「A MP3 Player Source Code, Enjoy it!」· 代码 · 共 29 行

#! /usr/bin/perl

$h = "[0-9A-F]";
$hh = "$h$h";
$s = "[rs\* ]";
$num = 0;

while (<>) {
	next unless /^   $h{4} /;
	$d = $';
	if ($d =~ /^($hh)$s($hh)$s($hh)/) {
		$num += 3;
		# print "3  $d";
		next;
	}
	if ($d =~ /^($hh)$s($hh)/) {
		$num += 2;
		# print "2  $d";
		next;
	}
	if ($d =~ /^($hh)/) {
		$num += 1;
		# print "1  $d";
		next;
	}
}
print "$num bytes counted\n";