perl调用java时老报错,有明白的吗进来看看阿。

use Inline Java => <<'END_OF_JAVA_CODE' ;
      class Pod_alu {
         public Pod_alu(){
         }

         public int add(int i, int j){
            return i + j ;
         }

         public int subtract(int i, int j){
            return i - j ;
         }
      }
   END_OF_JAVA_CODE

   my $alu = new Pod_alu() ;
   print($alu->add(9, 16) . "\n") ; # prints 25
   print($alu->subtract(9, 16) . "\n") ; # prints -7


CPAN上的例子。
报的错是Can't find string terminator "END_OF_JAVA_CODE" anywhere before EOF 。
在google上搜索了下，有个类似问题不过没看懂怎么解决阿。

應該是
END_OF_JAVA_CODE 前不能有空格.

看看 perldoc -q here.+document, 也許有幫助..