20 lines
522 B
Perl
20 lines
522 B
Perl
|
#!/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
|