mirror of
https://github.com/troydhanson/tpl.git
synced 2024-12-27 08:05:39 +08:00
17 lines
279 B
Plaintext
17 lines
279 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use lib "..";
|
||
|
|
use Tpl;
|
||
|
|
|
||
|
|
my $i;
|
||
|
|
my $tpl = Tpl->tpl_map("A(c)",\$i);
|
||
|
|
for($i=0; $i<10; $i++) { $tpl->tpl_pack(1); }
|
||
|
|
my $img = $tpl->tpl_dump();
|
||
|
|
|
||
|
|
open TPLXML, "|../tplxml" or die "can't open tplxml: $!";
|
||
|
|
print TPLXML $img;
|
||
|
|
close TPLXML;
|