(Perl 전용) Visual Basic의 경우 GetInstalledMasters를 참조하십시오.
등록된 스키마 저장소(마스터 데이터베이스)의 목록을 리턴합니다.
리턴된 값은 배열 참조입니다. GetInstalledDbSets 및 GetInstalledMasterDbs의 리턴된 값에는 항상 같은 수의 문자열이 포함됩니다. 둘 모두의 내용은 정렬되어 있으므로 GetInstalledMasterDbs에 나열된 각 스키마 저장소(마스터 데이터베이스)는 GetInstalledDbSets에서 같은 색인에 설정된 데이터베이스에 속합니다.
Perl
# This program runs in the context of a # 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);