20 lines
522 B
Raku
20 lines
522 B
Raku
#!/usr/local/bin/perl -w
|
|
|
|
my $count = 0;
|
|
|
|
while (($account, $passwd, $uid, $gid, $quota, $comment, $gcos, $home, $shell) = getpwent())
|
|
{
|
|
write;
|
|
|
|
$count++;
|
|
}
|
|
|
|
# Generate a readable report from the information gathered.
|
|
format STDOUT_TOP=
|
|
Shell Name Password UID GID Home
|
|
|
|
.
|
|
|
|
format STDOUT=
|
|
@<<< @<<<<<<<<<< @<<<<<<<<<<<<<<<<< @<<< @<<< @<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<
|
|
$count,$account,$passwd,$uid,$gid,$home,$shell |