TDVサーバーに接続するためのPERLコードサンプル

以下は、PERLクライアントをTDVサーバーに接続するためのサンプルPERLスクリプトです。 odbc.iniに値を設定するには、driverConfigユーティリティを使用して各クライアントでDSNを構成する必要があります。

#!/usr/bin/perl

use DBI;

use DBD::ODBC;

my $dsn="dbi:ODBC:DSN=test;";

my $dbc=DBI->connect($dsn,'admin','admin');

my $query = "select * from all_domains";

my $query_handle = $dbc->prepare($query);

$query_handle->execute();

$query_handle->bind_columns(undef, \$domain_id, \$domain_type_name, \$domain_name, \$domain_desc);

while ($query_handle->fetch()) {

print "$domain_id, $domain_type_name, $domain_name, $domain_desc\n";