Perlで .NET Framework クラスを利用する
膨大な .NET FrameworkクラスをPerlでも利用できないかと考えました。
- Perlでは、Windows用のPerlとしてActivePerlが利用できる。
- ActivePerlでは、PerlScriptというスクリプトが利用できる。
- PerlScriptでは、WScript Objectがデフォルトで利用できる。
- WScript Objectでは、.NET Framework クラスが利用できる。
よって、Perlで .NET Framework クラスを利用することができるのです!
以下は、ヒントレベルで申し訳ありませんが、そのサンプルです。
.NET FrameworkのSystem.Collections.ArrayLisクラスを利用しています。
◆サンプル
<job id="PerlForNetFramework"> <script language="PerlScript"> use strict; use warnings; our $WScript; my $ArrayList = $WScript->CreateObject("System.Collections.ArrayList"); $ArrayList->Add("B"); $ArrayList->Add("C"); $ArrayList->Add("E"); $ArrayList->Add("D"); $ArrayList->Add("A"); $ArrayList->Sort(); #my $item = $ArrayList->Item(0); for my $i (0,1,2,3,4) { my $item = $ArrayList->Item($i); $WScript->Echo("$item"); } </script> </job>
上記をメモ帳に貼り付けて、拡張子をwsfとしてファイル(perlnet.wsf等)にして、実行してみてください。