Access to the Unix group file in Perl 6
Perl6
Switch branches/tags
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
lib/Unix Remove version literal Mar 12, 2016
t Add groups-for-user Oct 28, 2015
.gitignore Add precomp to .gitignore Dec 24, 2015
.travis.yml Add travis.yml Oct 28, 2015
LICENCE rename LICENCE as en_GB May 30, 2016
META6.json Fix licence Apr 22, 2017
README.md Update README Jan 21, 2017

README.md

Unix::Groups

Access to the Unix group file in Perl 6

Synopsis

use Unix::Groups;

my $groups = Unix::Groups.new;

say "The logged in user is member of these groups:";

for $groups.groups-for-user($*USER.Str) -> $group {
	say $group.name;
}

Description

This module provides access to the group details from /etc/group, with similar to getgrent(), getgrnam and getgrgid in the Unix standard C library.

The methods either return a Unix::Groups::Group object or an array of those objects.

Because this module goes directly to the group file, if your system is configured to retrieve its group information from e.g. NIS or LDAP it may not necessarily reflect all the groups present, just the local ones.

Installation

Assuming you have a working Rakudo Perl 6 installation you should be able to install this with panda :

# From the source directory

panda install .

# Remote installation

panda install User::Groups

This should work equally well with zef but I may not have tested it.

Support

Suggestions/patches are welcomed via github at:

https://github.com/jonathanstowe/User-Groups

Licence

This is free software.

Please see the LICENCE file in the distribution

© Jonathan Stowe 2015, 2016, 2017