projects
/
scpubgit/System-Introspector.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
db8a7abf63af904bc7267629efab7b254f5efc9e
[scpubgit/System-Introspector.git]
/
t
/
bin
/
groups
1
#!/usr/bin/env perl
2
use strictures 1;
3
my $user = shift @ARGV;
4
printf "$user : %s\n", join ' ', map { "${user}_group_${_}" } qw( A B C );