perl preset1 -id (user ID)

  
     1	#! /usr/bin/perl
     2	#! /bin/bash
     3	
     4	
     5	# @chars contains characters to get random string from
     6	my @chars = (a..z, A..Z, 0..9);
     7	my $string = join '', map { @chars[rand @chars] } 1 .. 8;
     8	
     9	
    10	
    11	open COUNTF, "<pcount" or $cnt = 0; 
    12	while(<COUNTF>) {
    13		$cnt = $_;
    14	}
    15	close COUNTF;
    16	
    17	
    18	if ($cnt < 9999) {
    19	
    20	
    21	use Getopt::Long;
    22	my $id;
    23	my $help;
    24	
    25	GetOptions ("id=s" => \$id,
    26		    "optional:s" => \$id{optionalstring},
    27		    "optional:i" => \$id{optionalinteger},
    28		    "optional:i" => \$help{optionalinteger},
    29		    "optional:s" => \$help{optionalstring},
    30		    "help" => \$help,
    31	);
    32	
    33	
    34	if ($help) {
    35		print "\n";
    36		print "\n Usage: perl preset <option> \[\-id \(Users ID\)\] \n";
    37		print "\n";
    38		exit;
    39	}
    40	
    41	if($id) {
    42		print "\n";
    43		print "\n";
    44		print " The password for user $id has been reset to $string. \n";
    45		print "\n";
    46		print "\n";	
    47	}
    48	
    49	$cnt += 1;
    50	system'rm pcount';
    51	system'touch pcount';
    52	
    53	$f1 = 'pcount';
    54	
    55	open $CNT2, ">$f1" or print "\n unable to access file pcount \n";
    56		print $CNT2 "$cnt";
    57	close CNT2;
    58	
    59	}