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