現在のユーザーが表示できるすべてのグループの名前を戻します。 結果には、最低でもユーザーがメンバであるグループが含まれます。ユーザーが All Users/Groups Visible 権限を持っている場合、このリストにはデータベースに登録されているすべてのグループが含まれます。
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"; } }