#!/usr/bin/perl -w #Author:Hahazhu #DATE:04/29/2008 11:02 #Role:view user information based on user name. #USAGE:programe root

use strict;

my %search_name = (); my @names; my $i;

sub true_examples{    print "USAGE:Program arg1\n";    exit 1; } open(F,"/etc/passwd");

while(<F>){   my ($name,$f1,$f2,$f3,$group,$home,$bash)=split(/\:/,$_);   push( @names,$name);   Create_Entries($name,$group,$home,$bash); }

close F;

sub  Create_Entries{      my($name,$group,$home,$bash)=@_;      my $rl=[$group,$home,$bash];      push (@{$search_name{$name}},$rl); }

my  ; if( $numargs != 1 ){   &true_examples; } my $input_name = $ARGV[0]; print_search_name($input_name);

sub print_search_name{

  my ($input_name)=@_;

  foreach(@names){      if($_ eq $input_name){          print $input_name." information:\n";          print "\tGroup:$search_name{$input_name}[0][0]\n";          print "\tHome:$search_name{$input_name}[0][1]\n";          print "\tBash:$search_name{$input_name}[0][2]";          exit 0;      }      else          { $i = 0 }   }   if ( $i == 0 ){       print "\tERROR:ARG Error!\n";       print "True ARG:\n";       &print_arg;       print "\n";  } }

sub print_arg{   foreach(@names){      print "\t".$_." ";   }

}

本文转自hahazhu0634 51CTO博客，原文链接：http://blog.51cto.com/5ydycm/113491，如需转载请自行联系原作者