현재 사용자가 볼 수 있는 모든 그룹의 이름을 리턴합니다. 결과에는 최소한 해당 사용자가 멤버인 그룹이 포함됩니다. 사용자에게 모든 사용자 및 그룹 표시 권한이 있는 경우 이 목록에는 데이터베이스에 등록되어 있는 모든 그룹이 포함됩니다.
Perl
sub show_all_groups() { my $groups; eval { $groups = $session->GetAllGroups($CQPerlExt::CQ_NAME_EXTEND_WHEN_NEEDED); }; if ($@){ print "WARNING: failed to get all groups: $@\n"; } else { my $group; print "All groups:"; foreach $group (sort @$groups) { print " $group"; } print "\n"; } }