http://oshiete1.goo.ne.jp/qa4101062.html
で書いた モジュール確認用(linux版)のスクリプトをwindowsに移植(って大げさな)してみました
結果:
--------------
O [ CGI.pm ] = C:/usr/lib/CGI.pm
--------------
X [ Image/Size.pm ] is Nothing
--------------
O [ File/Spec.pm ] = C:/usr/lib/File/Spec.pm
--------------
O [ CGI/Cookie.pm ] = C:/usr/lib/CGI/Cookie.pm
--------------
O [ DBI.pm ] = C:/usr/lib/DBI.pm
C:/usr/lib/Bundle/DBI.pm
C:/usr/lib/PerlEx/DBI.pm
--------------
X [ DBD/mysql.pm ] is Nothing
--------------
O [ HTML/Entities.pm ] = C:/usr/lib/HTML/Entities.pm
--------------
O [ LWP/UserAgent.pm ] = C:/usr/lib/LWP/UserAgent.pm
--------------
X [ SOAP/Lite.pm ] is Nothing
--------------
O [ File/Temp.pm ] = C:/usr/lib/File/Temp.pm
--------------
X [ Image/Magick.pm ] is Nothing
--------------
O [ Storable.pm ] = C:/usr/lib/Storable.pm
C:/usr/lib/DBI/Gofer/Serializer/Storable.pm
C:/usr/lib/Memoize/Storable.pm
--------------
X [ Crypt/DSA.pm ] is Nothing
--------------
O [ MIME/Base64.pm ] = C:/usr/lib/MIME/Base64.pm
--------------
X [ XML/Atom.pm ] is Nothing
--------------
O [ Archive/Tar.pm ] = C:/usr/lib/Archive/Tar.pm
--------------
O [ Archive/Zip.pm ] = C:/usr/lib/Archive/Zip.pm
--------------
O [ IO/Compress/Gzip.pm ] = C:/usr/lib/IO/Compress/Gzip.pm
--------------
O [ IO/Uncompress/Gunzip.pm ] = C:/usr/lib/IO/Uncompress/Gunzip.pm
##########以上です
恥ずかしいけど、スクリプトの中身も一応アップ
#!/usr/bin/perl
print"Content-type: text/html\n\n";
print "<html><pre>\n";
## 調べたいモジュールを@pm_test に入れる
# 例: @pm_test = ('Crypt::DSA','Image::Magick','uso::desu','file::Find');
@pm_test =
('CGI',
'Image::Size',
'File::Spec',
'CGI::Cookie',
'DBI',
'DBD::mysql',
'HTML::Entities',
'LWP::UserAgent',
'SOAP::Lite',
'File::Temp',
'Image::Magick',
'Storable',
'Crypt::DSA',
'MIME::Base64',
'XML::Atom',
'Archive::Tar',
'Archive::Zip',
'IO::Compress::Gzip',
'IO::Uncompress::Gunzip'
);
## windows版
$lib_path= join(" ", @INC);
$lib_path =~s/\//\\/g;
@pm_path = `dir $lib_path /b /s`;
#print join("<HR>\n",@pm_path); # 画面に全てのfileを表示するなら行頭の#外し
#__END__
foreach $pm_test(@pm_test)
{print"--------------\n";
$pm_test =~s/::/\//g;
$pm_test = $pm_test .'.pm';
foreach(@pm_path)
{s/\\/\//g;
if(/$pm_test/i)
{$yn{$pm_test} .=" $_";
}
}
if($yn{$pm_test}){print "O [ $pm_test ] = $yn{$pm_test}";}
else{print "X [ $pm_test ] is Nothing\n";}
}
__END__
補足
回答ありがとうございます ※連続投稿できないので、ひとつづつご返信させていただきます。 CGI.pm Jcode.pm Imgae::Magick DB_File DBI これらがActivePerlに含まれているという意味で とってよろしいですか?