mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-03-07 10:48:06 +00:00
16 lines
237 B
Perl
Executable File
16 lines
237 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
use strict;
|
|
use warnings;
|
|
|
|
use lib "..";
|
|
use Tpl;
|
|
|
|
my $i;
|
|
my $tpl = Tpl->tpl_map("A(i)",\$i);
|
|
for($i=0; $i<10; $i++) { $tpl->tpl_pack(1); }
|
|
my $img = $tpl->tpl_dump();
|
|
|
|
my $fmt = Tpl->tpl_peek(\$img);
|
|
print("$fmt\n");
|