#!/usr/bin/perl
use strict;
my $monthName;
my $longdate = shift; 
my($year, $month, $day) = split (/-/, $longdate);
my @months = ( ['',0], ['Jan',31], ['Feb',28], ['Mar',31], ['Apr',30], ['May',31],['Jun',30],['Jul',31],['Aug',31],['Sep',30],['Oct',31],['Nov',30],['Dec',31]  );
my $date = '(';
for (my $i=0; $i<7; $i++) {
  if ($day + $i > $months[$month][1]) {
    $month++; $day = 1-$i;
  }
  $date.=$months[$month][0].' +';
  $date.=$day+$i;
  $date.='.*'.$year;
  $date.='|';
}
chop $date; $date.=')';
$/ ="GENERATION";
open FILE, "c:/generation.txt" or die $!;
while (<FILE>) {
       next unless /$date/i;
       print "Date: $1 $2\n" if /Date:.{4}(.{6}).{10}(.{4})/;
       if (my ($xml,  $x_pdf,  $x_reussite) = /XML:(\d+)[^:]+:(\d+)[^:]+:\s*([^\n]+)/i) {
     printf  "<b>Nombre XML</b>: $xml<br>\n<b>Nombre de PDF(xml)</b>: $x_pdf<br>\n<b>Pourcentage de réussite</b>: %.1f",$x_reussite;
       } 
    if (my ($doc,  $d_pdf,  $d_reussite) = /DOC:(\d+)[^:]+:(\d+)[^:]+:\s*([^\n]+)/i) {
    printf "<b>Nombre DOC</b>: $doc<br>\n<b>Nombre de PDF(doc)</b>: $d_pdf<br>\n<b>Pourcentage de réussite</b>: %.1f",$d_reussite;
       }
    #last; 
    print "\n------------------------------------------\n";
    }
    close FILE;