windows-nt/Source/XPSP1/NT/multimedia/danim/tools/x86/utils/maptrunc.bat

23 lines
343 B
Batchfile
Raw Normal View History

2020-09-26 03:20:57 -05:00
@rem = '-*- Mode: Perl -*-
@goto endofperl
';
$maxlen = 250;
$H = "[0-9A-Fa-f]";
while (<ARGV>) {
chop;
if (/^(\s*$H+:$H+\s*)(\S+)(.*$)/ &&
length($2) > $maxlen) {
$f = substr($2,0,$maxlen);
print "$1$f$3\n";
} else {
print "$_\n";
}
}
__END__
:endofperl
@perl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9