mirror of
https://github.com/troydhanson/tpl.git
synced 2024-12-26 15:47:23 +08:00
25 lines
481 B
Plaintext
25 lines
481 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# tplfmt
|
||
|
|
# by Troy Hanson Feb 2006
|
||
|
|
# print the format string of a tpl image file
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
sub peek_fmt {
|
||
|
|
my $buf = shift;
|
||
|
|
die "invalid tpl file" unless ($$buf =~ /^tpl/);
|
||
|
|
return (unpack("Z*", substr($$buf,8)));
|
||
|
|
}
|
||
|
|
|
||
|
|
die "usage: $0 <file> [<file> ...]" unless (@ARGV > 0);
|
||
|
|
|
||
|
|
undef $/; # slurp
|
||
|
|
for (@ARGV) {
|
||
|
|
open TPL, "<$_" or die "can't open $_: $!";
|
||
|
|
my $tpl = <TPL>;
|
||
|
|
print "$_: ", peek_fmt(\$tpl), "\n";
|
||
|
|
close TPL;
|
||
|
|
}
|