Sí he encontrado información sobre cómo llamar desde Perl a código Java pero lo estoy intentando y tampoco lo consigo, no sé si cometo algún error a la hora de instalar el Inline::Java en el ppm (estoy trabajando en Win32 y con el eclipse) pero no consigo que me funcione el siguiente código:
Using perl Syntax Highlighting
use strict;
use warnings;
use Inline Java => <<'EOJ';
public class Hi {
String greeting;
public Hi(String greeting) {
this.greeting = greeting;
}
public void setGreeting(String newGreeting) {
greeting = newGreeting;
}
public String getGreeting() {
return greeting;
}
}
EOJ
my $greeter = Hi->new("Miguel");
print $greeter->getGreeting(), "\n";
use warnings;
use Inline Java => <<'EOJ';
public class Hi {
String greeting;
public Hi(String greeting) {
this.greeting = greeting;
}
public void setGreeting(String newGreeting) {
greeting = newGreeting;
}
public String getGreeting() {
return greeting;
}
}
EOJ
my $greeter = Hi->new("Miguel");
print $greeter->getGreeting(), "\n";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Actualmente me da el siguiente error:
- Código: Seleccionar todo
java.lang.UnsupportedClassVersionError: org/perl/inline/java/InlineJavaServer (Unsupported major.minor version 49.0)
at java.lang.ClassLoader.defineClass0(Native Method)
at java.lang.ClassLoader.defineClass(ClassLoader.java:539)
at java.security.SecureClassLoader.defineClass(SecureClassLoader.java:123)
at java.net.URLClassLoader.defineClass(URLClassLoader.java:251)
at java.net.URLClassLoader.access$100(URLClassLoader.java:55)
at java.net.URLClassLoader$1.run(URLClassLoader.java:194)
at java.security.AccessController.doPrivileged(Native Method)
at java.net.URLClassLoader.findClass(URLClassLoader.java:187)
at java.lang.ClassLoader.loadClass(ClassLoader.java:289)
at sun.misc.Launcher$AppClassLoader.loadClass(Launcher.java:274)
at java.lang.ClassLoader.loadClass(ClassLoader.java:235)
at java.lang.ClassLoader.loadClassInternal(ClassLoader.java:302)
Can't find class InlineJavaServer at C:/Perl/site/lib/Inline/Java/JVM.pm line 54.
Actualmente estoy un poco perdido por lo que os agradecería mucho toda ayuda que me pudierais prestar.
Un saludo!
