cgiのモジュールチェック

MTとかでインストール済モジュール一覧を表示する機能がありますが、モジュールがインストールされているかチェックする方法です。

#!/usr/bin/perl


@MODULES = ('Jcode', 'CGI', 'GD');

print "Content-type:text/html; charset=utf8\n\n";

print "<html><body>";

foreach $modname(@MODULES){
    eval "use $modname;";
    print "Module = $modname<br />";
    print "Exist = ";
    if($@){ print "NO"; }else{ print "YES"; }
    print "<br />Version = ";
    if($@){ print "N/A"; }else{ eval "print \$${modname}::VERSION;"; }
    print "<br />ErrorMsg = $@<br />";
}

print "</body></html>";