O'Reilly logo

Programmieren mit Perl by Jon Orwant, Tom Christiansen, Larry Wall

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

User::grent

use User::grent;
$gr = getgrgid(0)        or die "Keine Gruppe 0";
if ($gr->name eq "wheel" && @{$gr->members} > 1) {
     print "GID 0, Name wheel, mit anderen Mitgliedern";
}

$gr = getgr($whoever);  # Akzeptiert String und Zahl.

use User::grent ':FIELDS';
getgrgid(0)               or die "Keine Gruppe 0";
if ($gr_name eq "wheel" && @gr_members > 1) {
     print "GID 0, Name wheel, mit anderen Mitgliedern";
}

Die Standardexporte dieses Moduls überschreiben die Core-Funktionen getgrent, get-gruid und getgrnam und ersetzen sie durch Versionen, die ein User::grent-Objekt (bzw. undef bei einem Fehler) zurückgeben. Dieses Objekt besitzt Methoden für den Zugriff auf die gleichnamigen Strukturfelder in struct group aus grp.h, also name, passwd, gid und members (nicht

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required