[Tech] ingroup()

[Leonardo Boselli]

Esiste nel perl standard una funzione del tipo:
bool ingroup(username,groupname)
che mi ritorni vero o falso a seconda se l'user username sia o no 
membro del gruppo groupname ?
in modo che possa fare:
  if( ! ingroup($user,"gruppoammesso")) 
    { printf "Prrrrrr...\n"; die; }
  else
    { ... bigprogram ... }
?
Leonardo Boselli (NIT)
Dipartimento Ingegneria Civile
Universita` di Firenze
Via Santa Marta 3
I-50139 Firenze
+39()055-4796-431