mirror of
https://github.com/troydhanson/tpl.git
synced 2025-01-14 00:27:56 +08:00
24 lines
376 B
Perl
Executable File
24 lines
376 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
use strict;
|
|
use warnings;
|
|
|
|
use lib "..";
|
|
use Tpl;
|
|
|
|
my $pwd = `pwd`;
|
|
chomp $pwd;
|
|
|
|
my $tmp1 = "$pwd/$0_1.out";
|
|
|
|
my $i;
|
|
my $tpl = Tpl->tpl_map("A(f)",\$i);
|
|
for($i=0; $i<10.0; $i+=2/3.0) { $tpl->tpl_pack(1); }
|
|
$tpl->tpl_dump($tmp1);
|
|
|
|
my $j;
|
|
my $tpl2 = Tpl->tpl_map("A(f)",\$j);
|
|
$tpl2->tpl_load($tmp1);
|
|
while($tpl2->tpl_unpack(1) > 0) { printf("%.6f\n", $j); }
|
|
|