燈明ブログ

現状は小池啓仁の応援ブログ

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等)にして、実行してみてください。