Shell Programming and Scripting

#!/bin/perl -w #-d

use strict;
use POSIX qw(strftime);

my $getprpw_list="/usr/lbin/getprpw -l";

my $host = "nbsol151";
my $user = "genadmin";

my %uid;
my %spwchg;
my %upwchg;
my %slogint;
my %ulogint;
my %alock;
my %lockout;

open (GETPRPW, '-|', "$getprpw_list $user");
while (<GETPRPW>) {
        chomp;
        if ( /uid=(.*?),/ ) { my $uid{$host} = $1 }
        if ( /spwchg=(.*?),/ ) { my $spwchg{$host} = $1 }
        if ( /upwchg=(.*?),/ ) { my $upwchg{$host} = $1 }
        if ( /slogint=(.*?),/ ) { my $slogint{$host} = $1 }
        if ( /ulogint=(.*?),/ ) { my $ulogint{$host} = $1 }
        if ( /alock=(.*?),/ ) { my $alock{$host} = $1 }
        if ( /lockout=(.*?)$/ ) { my $lockout{$host} = $1 }
}
close (GETPRPW);

printf "spwchg : $spwchg{$host}\n";

spwchg : Thu Feb 12 08:19:32 2009

spwchg : 09-02-12/08:19:32

$
$ cat tsconv.pl
#!/usr/bin/perl
%mon = qw (Jan 1 Feb 2 Mar 3 Apr 4 May 5 Jun 6 Jul 7 Aug 8 Sep 9 Oct 10 Nov 11 Dec 12);
$time = "Thu Feb 12 08:19:32 2009";
($dow,$mth,$dom,$hms,$yr) = split / /,$time;
print "Original Format:\t$time\n";
print "Converted Format:\t";
printf("%02d-%02d-%02d/%s\n", substr($yr,2), $mon{$mth}, $dom, $hms);
$
$ perl tsconv.pl
Original Format:        Thu Feb 12 08:19:32 2009
Converted Format:       09-02-12/08:19:32
$
$