Shell Programming and Scripting

#!/usr/bin/perl
%months = (
  jul => 7,
  aug => 8,
  sep => 9
);

while (<>)
{
  @a = split('\s+');
  @b = split('-',$a[0]);

  next if ($b[2] != 2005);

  if ( $months{$b[1]} == 8 ||
       ($months{$b[1]} == 7 && $b[0] >= 9) ||
       ($months{$b[1]} == 9 && $b[0] <= 30)
     )
  {
    print;
  }
}

#!/usr/local/bin/perl
use Date::Manip;

$start="09-jul-2005";
$end="30-sep-2005";

while (<>)
{
  @a = split('\s+');
  print if ( (Date_Cmp($a[0],$start) >= 0) &&
             (Date_Cmp($a[0],$end) <= 0) );
}