Perl での Btrieve の使用（Windows x64）

以下に記載されているのは、Perl プログラミング言語用の Btrieve 2 SDK を構成する 1 つの方法です。この例では、Visual Studio 2015 を使用して、ネイティブの Windows x64 環境をターゲットとします。Zen は既にインストールされ、実行されているものとします。

• SWIG および Perl がまだインストールされていない場合は、インストールします。
  • http://www.swig.org/
  • http://www.strawberryperl.com/
• Zen の Btrieve 2 Windows SDK をインストールします。
  • https://www.agtech.co.jp/actian/support/reference/sdk/
• Btrieve Perl を生成、ビルド、およびインストールします。
  • Visual Studio x64 ネイティブ ツールのコマンド プロンプトを開きます。
  • ディレクトリを Btrieve 2 SDK ディレクトリに変更します。
  • Btrieve Perl を生成します。
    • c:\swigwin-3.0.12\swig.exe -cppext cpp -outcurrentdir -perl5 -c++ -Iinclude swig\btrievePerl.swig
      • 上記で使用されている SWIG へのパスは異なる場合があることに注意してください。
      • Perl バージョン 5 が指定されていることに注意してください。
  • Btrieve Perl をビルドします。
    • cl -EHsc -c -Iinclude -DWIN32 -IC:\Strawberry\perl\lib\CORE btrievePerl_wrap.cpp
      • 上記で使用されている Perl へのパスは異なる場合があることに注意してください。
      • クリーンなコンパイルを行うために、Perl インストールの構成の変更が必要になる場合があります。これは SWIG の問題ではなく Perl の問題です。
    • link -dll win64\x86_64\btrieveCpp.lib -libpath:C:\Strawberry\perl\lib\CORE libperl528.a -out:btrievePerl.dll btrievePerl_wrap.obj
      • 上記で使用されている Perl へのパスは異なる場合があることに注意してください。
  • Btrieve Perl をインストールします。
    • copy btrievePerl.pm "c:\Program Files\Actian\Zen\bin"
    • copy btrievePerl.dll "c:\Program Files\Actian\Zen\bin"
      • これらのコピーを実行するには、管理者特権のアクセス許可が必要になる場合があります。
  • Btrieve Perl サンプル プログラムを実行します。
    • c:\Strawberry\perl\bin\perl.exe samples\btest.pl 9
      • 出力 "record: (9, 81, 3)" が表示されるはずです。
      • 上記で使用されている Perl へのパスは異なる場合があることに注意してください。
      • "Error: BtrieveClient->FileCreate:94:Permission error at samples\btest.pl line 50." というエラーが返される場合は、すべてのユーザーに現在のディレクトリへの書き込みを許可する必要があるかもしれません。

Perl での Btrieve の使用（Ubuntu Linux x64）

以下に記載されているのは、Perl プログラミング言語用の Btrieve 2 SDK を構成する 1 つの方法です。この例では、Ubuntu Linux x64 環境をターゲットとします。Zen は既にインストールされ、実行されているものとします。

• SWIG および Perl がまだインストールされていない場合は、インストールします。
  • sudo apt install swig
  • sudo apt install perl
• Zen の Btrieve 2 Linux SDK をインストールします。
  • https://www.agtech.co.jp/actian/support/reference/sdk/
• Btrieve Perl を生成、ビルド、およびインストールします。
  • ターミナル ウィンドウを開きます。
  • ディレクトリを Btrieve 2 SDK ディレクトリに変更します。
  • Btrieve Perl を生成します。
    • swig -cppext cpp -outcurrentdir -perl5 -c++ -Iinclude swig/btrievePerl.swig
      • Perl バージョン 5 が指定されていることに注意してください。
  • Btrieve Perl をビルドします。
    • g++ -c -fPIC -Iinclude -I/usr/lib/x86_64-linux-gnu/perl/5.30.0/CORE btrievePerl_wrap.cpp
      • 上記で使用されている Perl へのパスは異なる場合があることに注意してください。
    • g++ -shared btrievePerl_wrap.o -o btrievePerl.so -L/usr/local/actianzen/lib64 -lbtrieveCpp
  • Btrieve Perl をインストールします。
    • sudo cp btrievePerl.pm /usr/local/actianzen/lib64
    • sudo cp btrievePerl.so /usr/local/actianzen/lib64
  • Btrieve Perl サンプル プログラムを実行します。
    • export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/usr/lib/x86_64-linux-gnu:/usr/local/actianzen/lib64
    • perl samples/btest.pl 9
      • 出力 "record: (9, 81, 3)" が表示されるはずです。
      • "Error: BtrieveClient->FileCreate:94:Permission error at samples\btest.pl line 50." というエラーが返される場合は、すべてのユーザーに現在のディレクトリへの書き込みを許可する必要があるかもしれません。