UNIX for Dummies Questions & Answers

#today=`date '+%Y%m%d'`              # today
CUTDATE=`perl -MPOSIX -e "print strftime('%Y%m%d',localtime time -90*24*60*60)"`
cat users_log.csv | while read line
do
#while : ; do
#  read line
  datestr=`echo $line | cut -d, -f1`
  [ "$datestr" -gt "$cutdate" ] && echo $line
done > /az/web/abc.com/docs/users_log.csv
exit 0

my_peg_date="90" 
today_90=`perl -e '\
      $y= time - (86400 * $ARGV[0]); \
      printf "%04d%02d%02d\n", (localtime($y))[5] + 1900 ,(localtime($y))[4] + 1 ,(localtime($y))[3] ; ' ${my_peg_date} `

set |grep today_90

CUTDATE=`perl -MPOSIX -e "print strftime('%Y%m%d',localtime time -90*24*60*60)"`
awk -F, '{print $1}' users_log.csv | while read line
do
  [ "$line" -gt "$cutdate" ] && echo $line
done > /az/web/abc.com/docs/users_log.csv
exit 0