use Lingua::Romana::Perligata 'converte';
at the start of the program, to be shown precisely how it's converting the Latinate code to Perl?
When I do that on your source under Perl 5.20, I get
(after perltidy-ing it):
use strict;
use warnings;
$_ = Lingua::Romana::Perligata::getline(*STDIN);
@_ = split( " ", $_ );
my (@ap) = split( " ", $_ );
my $i = 0;
my $m = Lingua::Romana::Perligata::__lastelem__(@_);
for $_ ( Lingua::Romana::Perligata::__enlist__( 0, $m ) ) {
print( STDOUT $_, " " );
print( STDOUT $_[$_], " " );
}
print( STDOUT "\n" );
my (@b);
my $v;
for $v ( Lingua::Romana::Perligata::__enlist__( 0, $m ) ) {
print( STDOUT $v, " " );
print( STDOUT $ap[$v], " " );
$b[$v] = $ap[$v];
}
print( STDOUT "\n" );
for $_ (@_) { print( STDOUT $_, " " ) }
print( STDOUT "\n" );
for $_ (@b) { print( STDOUT $_ ) }
which appears to be exactly equivalent to your
comments on the right.
If 'converte' produces the same code
for you, then that's literally what Perligata is actually
executing.
If it doesn't produce the same code, then it's
a puzzle (maybe related to the version of Perl and/or Perligata you're using?) |