Help for this page

Select Code to Download


  1. or download this
    my ( $name, $passwd, $uid, $gid, $qutoa, $comment, $gcos, $dir, $shell
+, $expire ) = getpwent;
  2. or download this
    my ( $name, $passwd, $uid, $gid, $qutoa, $comment, $gcos, $dir, $shell
+, $expire ) = getpwent($account);

...
else {
   print "User $account does not exist...\n";
}