/trunk/Examples/perl5/java/runme.pl

# · Perl · 29 lines · 18 code · 11 blank · 0 comment · 0 complexity · a5c210f243462a44942893c5b86472a0 MD5 · raw file

  1. use example;
  2. example::JvCreateJavaVM(undef);
  3. example::JvAttachCurrentThread(undef, undef);
  4. $e1 = new example::Example(1);
  5. print $e1->{mPublicInt},"\n";
  6. $e2 = new example::Example(2);
  7. print $e2->{mPublicInt},"\n";
  8. $i = $e1->Add(1,2);
  9. print $i,"\n";
  10. $d = $e2->Add(1.0,2.0);
  11. print $d,"\n";
  12. $d = $e2->Add("1","2");
  13. print $d,"\n";
  14. $e3 = $e1->Add($e1,$e2);
  15. print $e3->{mPublicInt},"\n";
  16. $s = $e2->Add("a","b");
  17. print $s,"\n";
  18. example::JvDetachCurrentThread()