mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-03-08 19:11:20 +00:00
18 lines
199 B
Plaintext
18 lines
199 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use lib "..";
|
||
|
|
use Tpl;
|
||
|
|
|
||
|
|
my $tmp1 = "test15.tpl";
|
||
|
|
|
||
|
|
my $j;
|
||
|
|
my $tpl2 = Tpl->tpl_map("i",\$j);
|
||
|
|
$tpl2->tpl_load($tmp1);
|
||
|
|
$tpl2->tpl_unpack(0);
|
||
|
|
print "$j\n";
|
||
|
|
|
||
|
|
|