Mega Code Archive

 

Categories / Perl / System Functions

 

Read the password file

#!/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         .