(Perl 전용) Visual Basic의 경우 GetInstalledMasters를 참조하십시오.
리턴된 값은 배열 참조입니다. GetInstalledDbSets 및 GetInstalledMasterDbs의 리턴된 값에는 항상 같은 수의 문자열이 포함됩니다. 두 컨텐츠가 모두 정렬되어 있으므로 GetInstalledMasterDbs에 나열된 각 스키마 저장소(마스터 데이터베이스)는 GetInstalledDbSets에 있는 같은 색인의 데이터베이스 세트에 속합니다.
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);