|
#!/usr/local/bin/perl -w
my $count = 1;
while (($account, $passwd, $uid, $gid, $quota, $comment, $gcos, $home, $shell) = getpwent()){
if ($passwd eq "" || $passwd eq "*")
{
write;
$count++;
}
}
format STDOUT_TOP=
Count Account UID GID Home
.
format STDOUT=
@>>>> @<<<<<<<<<<<<<< @<<<<< @<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$count,$account,$uid,$gid,$home
.
|