GetInstalledDbSets

설명

(Perl 전용) Visual Basic의 경우 GetInstalledMasters를 참조하십시오.

등록된 데이터베이스 세트의 목록을 리턴합니다.

리턴된 값은 배열 참조입니다. GetInstalledDbSetsGetInstalledMasterDbs의 리턴된 값에는 항상 같은 수의 문자열이 포함됩니다. 두 컨텐츠가 모두 정렬되어 있으므로 GetInstalledMasterDbs에 나열된 각 스키마 저장소(마스터 데이터베이스)는 GetInstalledDbSets에 있는 같은 색인의 데이터베이스 세트에 속합니다.

구문

Perl

$session->GetInstalledDbSets(); 
ID
설명
session
현재 database-access 세션을 나타내는 Session 오브젝트입니다.
Return value
데이터베이스 세트에 대한 문자열 배열에 대한 참조를 리턴합니다.

예제

Perl

# This program runs in the context of an
# external  program (not from within a hook)...

use CQPerlExt;
# Create the session object...
$Session = CQSession::Build()
or die "Couldn't create the ClearQuest 'session' object.\n";

# Get the list of master databases and dbsets installed on this
# machine; note that both functions return references to
# arrays...
my($MasterDBsREF) = $Session->GetInstalledMasterDbs();
my(@MasterDBs) = @$MasterDBsREF;
my($DbSetsREF) = $Session->GetInstalledDbSets();
my(@DbSets) = @$DbSetsREF;
my($N) = $#MasterDBs;

printf ("There are %d DbSet(s) installed on this machine.\n", ($N+1));

for (my($i)=0; $i <= $N; $i++) {
print "DbSet #" . $i . ": " .
" DbSet=" . $DbSets[$i] .
" MasterDB=" . $MasterDBs[$i] .
"\n";
}

CQSession::Unbuild($Session);

피드백