12345678910111213141516 use strict;use warnings;use FFI::Platypus 2.00;my $ffi = FFI::Platypus->new( api => 2, lang =>'Fortran', lib => './fib.so',);$ffi->attach( fib => ['integer*'] => 'integer' );for(1..10){ print fib(\$_), "\n";}
use
strict;
warnings;
FFI::Platypus 2.00;
my
$ffi
= FFI::Platypus->new(
api
=> 2,
lang
=>
'Fortran'
,
lib
'./fib.so'
);
->attach(
fib
=> [
'integer*'
] =>
'integer'
for
(1..10)
{
print
fib(\
$_
),
"\n"
;
}