1
0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-02-24 10:31:13 +00:00

17 lines
286 B
Plaintext
Raw Normal View History

#!/usr/bin/perl
#
use strict;
use warnings;
use lib "..";
use Tpl;
my $i;
my $tpl = Tpl->tpl_map("A(f)",\$i);
for($i=0; $i<10.0; $i+=2/3.0) { $tpl->tpl_pack(1); }
my $img = $tpl->tpl_dump();
open TPLXML, "|../tplxml" or die "can't open tplxml: $!";
print TPLXML $img;
close TPLXML;