真珠発 → 珈琲行(2)

この前のベンチマークの続きです。実行させるには Inline::Java モジュールと、JDKがインストールされていることが必要です。実行速度は１秒弱。Perlのコードよりは早いですが、JVMを起動させることがネックになっているのかインラインC++よりはかなり遅めです。

 #!/usr/local/bin/perl
 
 use Inline Java;
 use Inline (Java => Config => 
             DIRECTORY => './_Inline',
             PORT => 7890,
             );
 use strict;
 
 {
     print("Content-type:text/plain;\n\n");
     my $test = new Test();
     print($test->start());
 }
 
 __END__
 __Java__
 public class Test {
     public Test() {
     }
     
     public String start() {
         StringBuffer buffer = new StringBuffer();
         buffer.append("BenchMark Started\n");
         {
             int a = 0;
             for (int i = 0; i < 10000; i++) {
                 for (int j = 0; j < 5000; j++) {
                     a++;
                 }
             }
             buffer.append("a=" + a + "\n");
         }
         buffer.append("BenchMark Ended\n");
         return buffer.toString();
     }
 }