アクセス可能なデータベースを取得するには、Session オブジェクトの GetAccessibleDatabases メソッド を呼び出します。
スキーマ リポジトリの Rational ClearQuest 論理データベース名を指定する String。 ほとんどの場合、この値は MASTR です。
ユーザーのログイン名を指定する String。この引数に空の文字列を使用すると、特定のユーザーにアクセスできるデータベースのみではなく、スキーマ リポジトリに関連付けられたすべてのデータベースのリストを戻すことをこの関数に指示します。
アクセス可能なデータベースを検索する先のデータベース セットを指定する String。デフォルトでは、この引数には空の文字列が含まれます。これにより、この関数は製品デフォルトのデータベース セット名 (つまり、製品バージョン番号) を使用します。
require CQPerlExt; #Start a Rational ClearQuest session $sessionObj = CQSession::Build(); #Get a list of accessible databases $databases = $sessionObj->GetAccessibleDatabases("MASTR", "admin", ""); $count = $databases->Count(); #For each accessible database, get database name for($x=0;$x<$count;$x++) { $db = $databases->Item($x); $dbName = $db->GetDatabaseName(); #... } CQSession::Unbuild($sessionObj);