Modules/sample scripts

Perl初心者の部屋　序章　１章　２章　３章　４章　５章　６章　７章　８章　１０章
PageID:New Perl-FAQ9J
Last updated:97.07.24

Perl for Win32 Frequently Asked Questions (FAQ)

翻訳者：木村浩一さん <kkimura@pure.cpdc.canon.co.jp>

9. モジュール／サンプルスクリプト

9.1. 私のperl5/Libディレクトリのスクリプト／モジュールの多くが動きません。どうしてでしょうか？

これらのモジュールはあるがまま(AS-IS)の状態で配布されていて、必ず動作するという保証もありません。こういったモジュールが動作しない理由は幾つかあります。

Perl for Win32ではサポートされていない関数を使っている
Win32環境では使えないようなUNIXツールを使っている
Win32環境では正しくないやり方でファイルを取り扱っている

そういったモジュールを自分で修正しようとすることも、すでに誰かがなおしたかどうかを確認することもできます。質問 5.8 を参照してください。

9.2. CPANから取ってきた私のperl5/Libディレクトリのスクリプト／モジュールの多くが動きません。どうしてでしょうか？

See 質問 9.1. However, if you make a change to a CPAN module that makes it work on Perl for Win32, you have a better chance of getting the author to change the module than you do of getting a change in the standard library.

CPANにあるモジュールの多くがビルドとインストールのために Makemakerというユーティリティを使っていることに注意してください。 MakeMakerはPerl for Win32に移植されていませんから、あなたは通常はモジュールファイルをライブラリディレクトリにコピーするという作業を手作業で行わなければなりません。サブディレクトリ構造を保持することを忘れないようにしてください。

9.3. 私のPerlスクリプトからデータベースにアクセスするにはどうしたらいいのでしょうか？

Perl for Win32からデータベースにアクセスするために開発されたエクステンションが幾つかあります。Win32::ODBCは広く知られていて、CPANや以下に示すURLから入手できます。

http://www.roth.net/odbc/

別のモジュール、ODBCTableはODBCのテーブルとperlのハッシュとを結び付け、テーブルをハッシュと全く同じように使えるようにします。これは以下に示すURLで入手できます。

http://www.endcontsw.com/sampledownload.htm

どちらを使うかはあなたのお好みしだいです。どちらのモジュールを使うにしろ、ODBC(Open DataBase Connectivity)のドライバがなければならないということに注意してください。 ODBCに関するより詳しい情報や、データベースの構築の方法はコントロールパネルにあるODBCアプレットをチェックしてください。

Microsoft Accessや Microsoft SQL serverのような一部のデータベースシステムでは、OLEオートメーション (質問 9.4を参照) を通じて制御することもできます。詳細は製品のマニュアルを参照してください。

9.4. 私のPerlスクリプトからOLE オートメーションを使う方法はあるのでしょうか？

あります。Perl for Win32のドキュメントにあるoleautoのページをみればすべてが載っています。あなたがperlをインストールしたディレクトリのegというサブディレクトリには、Perl for Win32を使って Microsoft Excelにアクセスする例が二つあります。

これはOLEオートメーションのみであって、埋め込みドキュメント(embed document) やドラッグアンドドロップのようなものを提供する他のOLEの機能を使うことはできないことに注意してください。また、OLEコードのバグのためにDLLとして実装されているOLEサーバー (これらはCLSCTX_SERVERではなくCLSCTX_LOCAL_SERVERを使って CoCreateInitializeを実行している)を使うことができないということにも注意してください。

これはOLEコントロール(OCX)やデータアクセスオブジェクトライブラリを使えない、ということです。配布されているソースコードを入手して上で述べたことがら(ntole.cppの321行目)を修正することもできるでしょうが、それはテストされていないことですから、やる場合にはあなた自身の責任において行ってください。

9.5. 私のPerlスクリプトからData Access Objects (DAO)にアクセスする方法はあるのでしょうか

あるともいえますし、ないともいえます。質問 9.4を参照してください。

9.6. 私のPerlスクリプトからMAPIにアクセスする方法はあるのでしょうか？

現在のところ、Perlスクリプトから直接MAPIにアクセスする方法はありません。単純なMAPIエクステンションのためのPerlエクステンションが作業中です。

[これって本当? どこかにMAPIエクステンションがあったりしない? -ESP]

OLEオートメーションを使ってメイルプログラムを制御することができるかもしれません(質問 9.4を参照)。 Microsoft ExchangeはOLE オートメーションが使えるとのことです。

9.7. 私のPerlスクリプトからSMTP (インターネット)メールを送信するにはどうしたらいいのでしょうか？

今のところお薦めの方法は、Windows NT リソースキットにある BLATと呼ばれるプログラムを使うことです。これはファイルを受取人(recipent)に送るコマンドラインプログラムです。質問 4.7を参照

ソケットを使ってメイルを送るperlスクリプトも幾つかあります。幾つかの例はRobin ChatterjeeのWebページにあります (質問 3.4を参照)。

9.8. Perl for Win32向けに利用できるDBM の実装はあるのでしょうか？

はい、あります。SDBM_FileはDBMのフリーなクローンであり、 Perl for Win32に実装されています。そして、Perl for Win32 の配布パッケージと一緒に配布されています。あなたはこれを以下のようにして使うことができます。

    use SDBM_File;
    # use Fcntl; #これはだめ! 質問 9.15参照

    sub O_CREAT { 0x0100 }
    sub O_BINARY { 0x8000 }
    sub O_RDWR { 0x0002 }

    tie( %myhash, "SDBM_File", 'myfile', O_RDWR | O_CREAT | O_BINARY,
      0666 )
      or die( "Can't tie: $!" );

    $myhash{"bibim"} = "bap";

    untie( %myhash );

マイクロソフトによって定義されている proprietary flagである O_BINARYフラグを使わなければならないことに注意して下さい。 DBMファイルは“バイナリ”であり、UNIXとWin32ではその意味するところが大きく異なります。

DBMファイルを結び付け(tie)てしまえば、後はハッシュテーブルと同じように使うことができます。

9.9. Perl for Win32向けに利用できるGDBM の実装はあるのでしょうか？

いいえ、ありません。s/GDBM/SDBM/gとして、GDBMを使っているところを SDBMを使うようにスクリプトを変更することはできますが、 DBMファイルとGDBMファイルとでは互換性がありません。このためあなたは変換の類のことをやらなければならないでしょう。

9.10. Perl for Win32でGUI プログラミングをする方法はあるのでしょうか？

まだありません。 TKライブラリがWin32環境に移植されてはいますが、私たちはここで PerlTKの移植を期待したほうが良いでしょう。もしあなたがそれを必要としているのなら、あなた自身が移植するのが良いかもしれません。これに関する情報は、CPANにあるPerl/Tkの配布パッケージで得ることができるでしょう。

一部のPerlプログラマーに対するもう一つの選択肢は、 Visual Basicに対する GUIのフロントエンドを開発して、OLEオートメーションを使ってそれを制御するというものです。

9.11. Win32用oraperlのポート（移植）はあるのでしょうか？

現時点ではありません。けれども、ODBCモジュールのどれかを使って Oracleデータベースに接続することができます。詳しくは質問 8.3 を参照してください。

9.12. Perl for Win32の配布セットにはどんなモジュールが付いてくるのでしょうか？

標準ライブラリファイルと一緒に、Win32特有のモジュールが幾つか Perl for Win32と共に配布されています。

Win32::ChangeNotification: ChangeNotificationオブジェクトを作成したり使ったりします [whatever the heck those are... -ESP]
Win32::EventLog: Windows NTのイベントログの読み込みや書き込みを行います
Win32::File: ファイルの属性(リードオンリー、システム、隠し...)を扱います
Win32::IPC: オブジェクト(プロセス、ミューテックス、セマフォ)を待ちます
Win32::Mutex: ミューテックスを生成したり使ったりします
Win32::NetAdmin: ユーザーやグループの管理を行います
Win32::NetResource: リソース(サーバー、ファイル共有、プリンタ)の管理を行います
Win32::Process: Win32プロセスの開始や終了を行います
Win32::Registry: Win32レジストリの読み込みや管理を行います
Win32::Semaphore: セマフォを生成したり使ったりします
Win32::Service: Windows NTのサービスを管理します
Win32::Timer: ミリ秒単位のタイミング情報を得ます
Win32::WinError: Win32で定義されたエラーを取得します

これらは Win32modというドキュメントで説明されています。また、 Win32パッケージのためのsubs builtがあります。

GetLastError: 最新のWin32エラーコードを取得します。
PerlVersion: Perl for Win32 のバージョンってこれ?
LoginName: ログインしているユーザーの名前 [? -ESP]
NodeName: マシンの名称 [? -ESP]
DomainName: マシンが所属しているドメインの名称 [? -ESP]
FsType: ドライブのファイルシステムタイプを取得する
GetCwd: カレントの作業ディレクトリを取得する [? -ESP]
SetCwd: Set " " " [? -ESP]
GetOSVersion: Win32オペレーティングシステムのバージョンを取得する [? -ESP]
FormatMessage: Win32のエラーコードをそのコードが表わすエラーメッセージに変換する[ローカライズするってこと? -ESP]。
Spawn: Win32のプロセスを生成します
LookupAccountName: ユーザー名からドメインとSID,SIDの型を取得する
LookupAccountSID: SIDからドメイン、ユーザー名、SIDの型を取得する
InitiateSystemShutdown: コンピューターをシャットダウンする
GetTickCount: あー、つまりシャットダウンさせないということ
ミリ秒を単位としたWindowsが起動してからの経過時間を返す
IsWin95: Windows NTかどうか
IsWin95: Windows 95かどうか
GetArchName: 使っているCPUアーキテクチャー(Intel, Alpha, PowerPC, MIPS)
GetChipName: CPUの名前 [? -ESP]
ExpandEnvironmentStrings: %HOMEPATH%のような形式の文字列を受け取り、それを展開する [? -ESP]

[Can anyone straighten me out on some of these? -ESP]

perlに対するWin32エクステンションに関するより詳しい情報は Philippe LeBerreのページ (http://www.inforoute.cgs.fr/leberre1/) で見つけられます。

9.13. Perl for Win32向けの他のモジュールはどこで見つけられるでしょうか？

Perl for Win32用のモジュールはCPAN(Comprehensive Perl Archive Network) という世界中にミラーリングされてるperlのアーカイブで見つけられます。あなたの身近にあるミラーリングサイトを見つけるには、以下のURLをチェックしてください。

http://www.perl.com/perl/CPAN/modules/by-module/Win32/

( ここをアクセスすると、魔法のように(automagically)一番近いミラーリングサイトへ連れてってくれるんだ。すごいよね、そうだろ?)

幾つかのモジュールがActiveWareのftpサーバーにありますが、これらはほとんど保守されていません。

ftp://ftp.activeware.com/contrib/

9.14. Perl for Win32向けに利用できるGDモジュールはあるのでしょうか？

あります。GDを移植した Win32GDが以下に示すURLから入手できます。

ftp://ftp.activeware.com/contrib/Win32GD_v960527.zip

[誰かこれ使ってる? -ESP]

9.15. どうしてFcntl は動かないのでしょうか？

Fcntlモジュール(ファイルコントロールフラグのためのもの)はPerl for Win32 のバイナリ配布パッケージには含まれていません。ソース配布パッケージを入手して、自分でFcntlモジュールをビルドする必要があります。

さらに、モジュール手続きを組み立てるFcntl.pllをサポートするための Fcntl.pmがありません。あなたは自分用のFcntl.pmを作る必要がありますが、これはAutoloaderを使っているので困難なことです。

9.16. どうしてWin32::NetResourceは動かないのでしょうか？

Win32::NetResouceモジュールはPerl for Win32のバイナリ配布パッケージには含まれていません。ソース配布パッケージを入手して、自分でビルドする必要があります(質問 1.6参照)。

Win32::NetResourceモジュールは他のすべてのWin32モジュールと共にビルドされているのではないということに注意してください [多分これは、バイナリ配布に入れるのを忘れたんだろうね... -ESP]。あなたはプロジェクトを開いて、別個にビルドする必要があります。

9.17. どうしてFile::Find あるいは Cwdは動かないのでしょうか？

[Thanks to Dave Wolfe (dwolfe@risc.sps.mot.com) for this answer. -ESP]

File::Findはディレクトリ構造を再帰的にたどるPerl5のモジュールで、 Perl 4での find.plやfinddepth.plと同じ働きをするものです。これは Perl for Win32環境に既に対応しています。 Cwdが作業ディレクトリを切り替えるのに使われています。

ビルド100と一緒に配布されているFile::Findには宣言されている変数($dont_use_nlink, $prune, $name, $dir) や呼び出されている他のパッケージとのやりとりで幾つかの問題があります。

File::Findはまたディレクトリ構造のどこにいるのかを決めるために statコマンドの返す値を使っています。これはMS のファイルシステムがファイルの検査(identify)のためにinodeやリンクというコンセプトを使っていないので、ディレクトリの“リンクの数”フィールド(nlinks)は何の意味もありません。最新のFind.pmではConfig.pmのOS名を nlinkを使うかどうかを使うかどうか決めるのに使っています。

結局、File::Findは不完全なCwd.pmに依存しているのです。

ビルド110では、以下の手順に従うことでFi;;:FindとCwdをきちんと動作するようにできます。

あなたのperl5ディレクトリのLibサブディレクトリにある File/Find.pmを CPAN(質問 9.18参照) で入手できるperl 5.002の標準配布パッケージにあるものに更新します。これは他の問題と同様、Win32かどうかのテストを追加します (5.003と一緒に配布されている File/Find.pmは5.003固有の特殊変数を使っていて、5.001をベースにしているビルド110では使うことができないので注意してください)。
fastcwd()を内部関数_NT_cwdにマッピングするためにCwd.pmに以下に示す行を追加してください。

    elsif ($osname eq 'MSWin32') {
        *cwd        = \&_NT_cwd;
        *getcwd     = \&_NT_cwd;
        # BEGIN ADDITION: Cwd.pm, line 250
        *fastcwd    = \&_NT_cwd;
        # END ADDITION
        *fastgetcwd = \&_NT_cwd;
    }

ビルド300以降の Perl for Win32ではFile::FindとCwdに関するエラーは正しいことに注意してください。

9.18. CPANとは何ですか、それを利用するにはどうすればいいのですか？

CPANとはComprehansive Perl Achive Network(総合的な Perl アーカイブネットワーク)の略で、あなたがPerl でプログラミングするに当たって欲しくなるようなファイルがたくさん集められています。オリジナルのアーカイブはフィンランドにありますが、それをミラーリングしているFTPサーバーが世界中にあります。

www.perl.comにある CPANリダイレクターを使って、“最も近い” CPANのミラーサイトに接続できます。

http://www.perl.com/CPAN/

このURLはあなたのブラウザを最も近くにあるCPANミラーサイトへ接続してくれるでしょう(one on your continent and maybe only a few hops away)。

http://www.perl.com/CPAN

このURLでは、多少の情報を提示してCPANミラーサイトをあなた自身に選択させます。

CPAN はモジュールやスクリプトを探すのと同様に、Perl for Win32の配布パッケージを探すにもよいところです。詳しくは質問 9.2を読んでください。

9.19. Microsoft Officeあるいは他のアプリケーションファイルを読み書きするライブラリはあるのですか？

一般的な話をすると、Microsoft Word, Microsoft Excel, Microsoft Access, WordPerfect, Lotus 1-2-3などといったアプリケーションのファイルを読んだり書いたりするようなライブラリモジュールはありません。

しかし、現在では主要なWindowsアプリケーションのほとんどがOLEオートメーションをサポートしています。あなたはMicrosoft Officeアプリケーションの OLEオートメーションサポートを使って、アプリケーションのファイルの読み書きをすることができます。あなたが使っているアプリケーションの OLEオートメーションに対するサポートについては、アプリケーションのドキュメントを参照して下さい。 Perl for Win32でOLEオートメーションを使う方法については質問 9.4 を参照してください。

特別な例としては、Microsoft Access, FoxPro, dBase, Paradoxといった多くのデータベースのファイルは、ODBC(Open DataBase Connectivity)を使ってアクセスすることが可能です。 Perl for Win32でODBCを使う方法の詳細は質問 9.3 を参照してください。

ご意見、ご要望は、電子メールまたは投稿にお願い致します。

ホームページへ戻る。

Perl for Win32 Frequently Asked Questions (FAQ)

9. モジュール／サンプルスクリプト

9.1. 私のperl5/Libディレクトリのスクリプト／モジュールの多くが動きません。 どうしてでしょうか？

9.1. 私のperl5/Libディレクトリのスクリプト／モジュールの多くが動きません。どうしてでしょうか？