Archive for 5月 23rd, 2012

  1. Hello, COM(Perl) World!

    Posted on 5月 23rd, 2012 by cx20

    Perl

    COM(Component Object Model)はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    以下は Perl による COM クライアントの例となっている。

    ソースコード

    use strict;
    use Win32::OLE;
     
    my $shell = Win32::OLE->new('Shell.Application');
    my $folder = $shell->BrowseForFolder( 0, 'Hello, COM(Perl) World!', 0, 36 );

    実行方法

    C:¥> perl hello.pl

    実行結果

    +----------------------------------------+
    |Browse For Folder                    [X]|
    +----------------------------------------+
    | Hello, COM(Perl) Wolrd!                |
    |                                        |
    | +------------------------------------+ |
    | |[Windows]                           | |
    | | +[addins]                          | |
    | | +[AppCompat]                       | |
    | | +[AppPatch]                        | |
    | | +[assembly]                        | |
    | |     :                              | |
    | |     :                              | |
    | |     :                              | |
    | +------------------------------------+ |
    | [Make New Folder]    [  OK  ] [Cancel] |
    +----------------------------------------+