Shell Programming and Scripting

TEST1_21062016          
TEST2_02122015  
TEST3_01032016  
TEST4_01042016

#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;
use File::Copy qw(move);

my $locked = "lockedusers.txt";
my $keep = "$locked.tmp";

my $fifty_days_ago = 86400 * 50;
my $now = time;

open my $in, '<', $locked  or die;
open my $out, '>', $keep or die;
while(<$in>) {
    my ($user, $day, $month, $year) = /(\w+)_(\d{2})(\d{2})(\d{4})/;
    my $time_ago = timelocal(0, 0, 0, $day, $month-1, $year-1900);
    ($now - $time_ago) > $fifty_days_ago ? print "$user\n" : print $out $_;
}
close $in;
close $out;
move $locked, $locked . ".bk" and move $keep, $locked;

perl beyondfifty.pl | while read user; do echo "db command to delete $user"; done

db command to delete TEST2
db command to delete TEST3
db command to delete TEST4

while IFS="_ " read LUSER LDATE
  do    [ $(( $(date +%s) - $(date +%s -d"${LDATE:2:2}/${LDATE:0:2}/${LDATE: -4}") - 4320000 )) -ge 0 ] && echo $LUSER, $LDATE
  done < file

while IFS="_ " read LUSER LDATE
do
  if [ $(( $(date +%s) - $(date +%s -d"${LDATE:2:2}/${LDATE:0:2}/${LDATE: -4}") )) -ge 4320000 ]
  then
    echo "$LUSER, $LDATE"
  fi
done < lockedusers.txt

#!/usr/bin/ksh
while IFS="_ " read LUSER LDATE
do
  if [ $(( $(date +%s) - $(date +%s -d"${LDATE:2:2}/${LDATE:0:2}/${LDATE: -4}") )) -ge 4320000 ]
  then
    echo "$LUSER" >> userRemovalList
	chmod 755 userRemovalList
    grep -v "$LUSER" test> test.new && mv test.new test
	echo "UserID: "${LUSER}         "Date Removed: "${TODAYS_DATE} >> RemovedUserList
  fi
done < test


./remove.ksh[8]: : bad substitution
TEST1, 03012016
./remove.ksh[8]: : bad substitution
TEST2, 11072016
./remove.ksh[8]: : bad substitution
TEST3, 05052016
./remove.ksh[8]: : bad substitution
TEST4, 02012016
./remove.ksh[8]: : bad substitution
TEST5, 20022016

TEST1, 03012016
TEST3, 05052016
TEST4, 02012016
TEST5, 20022016

oracle@11204_home>which ksh
/usr/bin/ksh