Inline y Otros Lenguajes

Inline no está limitado a C y puede ser usado con otros lenguajes. El siguiente ejemplo muestra como usar Inline::Python para usar código Python desde C:

lhp@nereida:~/Lperl/src/testing$ cat -n python.pl
 1  #!/usr/bin/perl -w
 2  use strict;
 3
 4  use Inline Python => <<'END_OF_PYTHON_CODE';
 5  def add(x,y):
 6    return x + y
 7
 8  def subtract(x,y):
 9    return x - y
10
11  END_OF_PYTHON_CODE
12
13  print "9 + 16 = ", add(9, 16), "\n";
14  print "9 - 16 = ", subtract(9, 16), "\n";

Al ejecutar este programa obtenemos la siguiente salida:

lhp@nereida:~/Lperl/src/testing$ python.pl
9 + 16 = 25
9 - 16 = -7

Este es otro ejemplo que hace uso de Inline::Java:

casiano@exthost:~/Lperltesting$ cat -n inlinejava.pl 
     1  use Inline Java => <<'END_OF_JAVA_CODE' ;
     2    class Pod_alu {
     3       public Pod_alu(){
     4       }
     5  
     6       public int add(int i, int j){
     7          return i + j ;
     8       }
     9  
    10       public int subtract(int i, int j){
    11          return i - j ;
    12       }
    13    }
    14  END_OF_JAVA_CODE
    15  
    16  my $alu = new Pod_alu() ;
    17  print($alu->add(9, 16) . "\n") ; # prints 25
    18  print($alu->subtract(9, 16) . "\n") ; # prints -7
casiano@exthost:~/Lperltesting$ perl inlinejava.pl 
25
-7