Sample2.java

最終更新:2009/10/25

Sample2.java

001: public class Sample2 {
002:   public static void main(String[] args) {
003:     String [] script = {
004:       "sub fib($){my$n=$_[0];if($n<3){return 1;}else{return fib($n-2)+fib($n-1);}}",
005:       "$result='';",
006:       "for($i=1;$i<=10;$i++){$result.='['.&fib($i).']';}",
007:       "$result"
008:     };
009:     try {
010:       MYPerl perl1 = new MYPerl(); // MYPerl インスタンス生成
011: 
012:       for (int i=0; i<script.length; i++) {
013:         perl1.eval(script[i]);
014:       }
015: 
016:       System.out.println(perl1.getSvPV());
017: 
018:       perl1.terminate(); // MYPerl インスタンス終期化
019: 
020:     } catch (Exception e) {
021: 
022:       e.printStackTrace(System.err);
023: 
024:     } finally {
025: 
026:       MYPerl.stop(); // Perl 環境の終期化
027: 
028:     }
029:   }
030: }
Sample2_result.txt
001: # 実行例
002: 
003: % java Sample2
004: [1][1][2][3][5][8][13][21][34][55]
Copyright (C) KAKU PROJECT (2009)KAKU PROJECT (2009)