Shell Programming and Scripting

$ 
$ # change of month within 7 days from input
$ echo "2/26/2010" | perl -lne 'BEGIN {use DateTime} ($m,$d,$y)=split/\//;
                                $dt=DateTime->new(year=>$y,month=>$m,day=>$d);
                                for (0..6) {print $_,"\t",$dt->mdy("/"); $dt->add(days=>1)}'
0	02/26/2010
1	02/27/2010
2	02/28/2010
3	03/01/2010
4	03/02/2010
5	03/03/2010
6	03/04/2010
$ 
$ # the case of a leap year
$ echo "2/26/2008" | perl -lne 'BEGIN {use DateTime} ($m,$d,$y)=split/\//;
                                $dt=DateTime->new(year=>$y,month=>$m,day=>$d);
                                for (0..6) {print $_,"\t",$dt->mdy("/"); $dt->add(days=>1)}'
0	02/26/2008
1	02/27/2008
2	02/28/2008
3	02/29/2008
4	03/01/2008
5	03/02/2008
6	03/03/2008
$ 
$ # change of year within 7 days from input
$ echo "12/27/2009" | perl -lne 'BEGIN {use DateTime} ($m,$d,$y)=split/\//;
                                 $dt=DateTime->new(year=>$y,month=>$m,day=>$d);
                                 for (0..6) {print $_,"\t",$dt->mdy("/"); $dt->add(days=>1)}'
0	12/27/2009
1	12/28/2009
2	12/29/2009
3	12/30/2009
4	12/31/2009
5	01/01/2010
6	01/02/2010
$ 
$ 

$ echo "2/26/2010"| ruby -e 'require "date";d,m,y=gets.chomp.split("/");t=Date.new(y.to_i,d.to_i,m.to_i);1.upto(6){|x|p t.to_s;t+=1}'
"2010-02-26"
"2010-02-27"
"2010-02-28"
"2010-03-01"
"2010-03-02"
"2010-03-03"

echo
  echo "3 day Account Mgmt Summary"
  echo
  
  echo -n "What is the month? Enter 2-digit format [MM]: "
  read MM
  
  echo - "What is the starting day? Enter 2-digit format [DD]: "
  read DD
  
  echo 2010-$MM-$DD
  grep Change /var/www/html/admin/uadmin/2010-$MM-$DD* wc -l > change.out
  grep Password /var/www/html/admin/uadmin/2010-$MM-$DD* wc -l > PW.out
  grep Create /var/www/html/admin/uadmin/2010-$MM-$DD* wc -l > CR.out
  
  let DD++
  
  grep Change /var/www/html/admin/uadmin/2010-$MM-$DD* wc -l >> change.out
  grep Password /var/www/html/admin/uadmin/2010-$MM-$DD* wc -l >> PW.out
  grep Create /var/www/html/admin/uadmin/2010-$MM-$DD* wc -l >> CR.out
  
  let DD++
  grep Change /var/www/html/admin/uadmin/2010-$MM-$DD* wc -l >> change.out
  grep Password /var/www/html/admin/uadmin/2010-$MM-$DD* wc -l >> PW.out
  grep Create /var/www/html/admin/uadmin/2010-$MM-$DD* wc -l >> CR.out
  
  #Sum of schanges
  value=0
  while read var
  do
  value=`expr $value + $var`
  done < change.out
  echo
  echo "Total changes for range:"
  echo $value
  rm change.out
  
  #Sum of Passwords
  value=0
  while read var
  do
  value=`expr $value + $var`
  done < PW.out
  echo
  echo "Total passwords for range:"
  echo $value
  rm PW.out
  
  #Sum of creations
  value=0
  while read var
  do
  value=`expr $value + $var`
  done < CR.out
  echo
  echo "Total account creations for range:"
  echo $value
  rm CR.out

$
$
$ # list all log files in here
$ ls -1 *.log
2009-12-26.log
2009-12-27.log
2009-12-28.log
2009-12-29.log
2009-12-30.log
2009-12-31.log
2010-01-01.log
2010-01-02.log
2010-01-03.log
$
$ # show the content of the Perl program
$ cat -n summary_counts.pl
     1  #!perl -w
     2  # Usage: perl summary_counts.pl "<start_date_in_mm/dd/yyyy_format>"
     3  use DateTime;
     4  ($m,$d,$y) = split/\//, $ARGV[0];
     5  $dt = DateTime->new(year=>$y, month=>$m, day=>$d);
     6  print "Start Date = ",$dt->mdy("/"),"\n";
     7  for (0..6) {
     8    $pattern = sprintf("%s",$dt->ymd("-"))."*.log";
     9    # search and process files that match the pattern $pattern
    10    while ($file = glob $pattern) {
    11      open (F, $file) or die "Can't open $file: $!";
    12      while (<F>) {
    13        if (/Change/)      {$change++}
    14        elsif (/Password/) {$password++}
    15        elsif (/Create/)   {$create++}
    16      }
    17      close (F) or die "Can't close $file: $!";
    18    }
    19    $dt->add(days=>1);
    20  }
    21  print "End Date   = ",$dt->subtract(days=>1) && $dt->mdy("/"),"\n";
    22  print "="x40,"\n";
    23  print "Total changes           = $change\n";
    24  print "Total passwords         = $password\n";
    25  print "Total account creations = $create\n";
$
$
$ # run the program to determine counts for a week starting from 27-Dec-2009
$ perl summary_counts.pl "12/27/2009"
Start Date = 12/27/2009
End Date   = 01/02/2010
========================================
Total changes           = 7
Total passwords         = 7
Total account creations = 7
$
$
$