1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
import org.perl.inline.java.*;
public class Program {
// Grundvrden
PerlObject him = new PerlObject("$him");
// Konstruktor
public Program() throws InlineJavaException {
}
// Metod som gr ngot...
public void work () {
// Hr skrivs skriptet i Java!
String T = (String)him.method("name");
if (T.equals("Nisse") )
//him.method("name","Knut-Gran");
him.method("name", new Object[] {"Knut-Gran" } );
else
him.method("name","Kurt-Arne");
him.method("peers", new Object[] {"Tuve", "Bernt-Arne", "Nyman"} );
// Hr slutar skriptet som skrivits i Java!
}
}
|
