Shell Programming and Scripting

#!/bin/ksh
typeset -i mCnt=0
mYYYYMMDD=`date +"%Y-%m-%d"`
echo 'mYYYYMMDD = '$mYYYYMMDD
while read mLine
do
  if [[ "${mLine}" < "${mYYYYMMDD}" ]]; then
    echo 'Found = '${mLine}
    mCnt=${mCnt}+1
  fi
done < input_file
echo 'Total lines = '${mCnt}

use Net::Telnet;

@DATE=$telnet->cmd("date '+%Y-%m-%d'");
chomp($DATE[0]);

@Discon=$telnet->cmd("cat /data/pinpe.csv_20070731 | nawk '{print \$4}' | perl -ne 'print if \$_ lt @DATE[0]' | wc -l");
chomp($Discon[0]); 

print "@Discon[0]\n";

Illegal octal digit '8' at -e line 1, at end of line

use Net::Telnet;
use IPadd;

$ipadd=IPadd->new();
$ipadd->ipadd1();

@Date1=$telnet->cmd("date '+%Y%m%d'");
chomp($Date1[0]);
@Date2=$telnet->cmd("date '+%Y-%m-%d'");
chomp($Date2[0]);

@Discon=$telnet->cmd("cat /data/pinpe.csv_@Date1[0] | nawk -v FS=, '{print \$1','\$18','\$22','\$26}' | grep -w $array1[$count-1] | grep -w 1 | nawk '{print \$4}' | perl -ne 'print if \$_ lt \"@Date2[0]\"' | wc -l");

print 2007-08-05;

\"@Date2[0]\"