Read the password file : getpwent « System Functions « Perl

1. Perl
2. System Functions
3. getpwent

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
   
    .

   
    
    
    
    
    
  

Related examples in the same category