#Ecrire un script “Perl” qui :
#• Lit une date sous la forme JJ   MM   AAAA
#JJ = numéro du jour
#MM = numéro du mois
#AAAA = année  
#• Vérifie si cette date est valide
#Exemple 1    1    2000  -> OK
#32     1    2006 -> KO
#29  2 1957 -> KO
#24 15 2057 -> KO

#!/usr/bin/perl -w
use strict;
my $JJ ; #variable qui va  recevoir le jour
my $MM ; #variable dui va recevoir le mois
my $AAAA; #variable annee

print "entrez un jour de l'annee\n";
chomp($JJ = <STDIN>);
print "entrez un mois de l'annee\n";
chomp($MM = <STDIN>);
print "entrez l'annee\n";
chomp($AAAA = <STDIN>);
#Teste si la dade est comprise entre 1 et 31
if($MM==1||$MM==3||$MM==5||$MM==7||$MM==8||$MM==10||$MM==12)
{
	if($JJ <= 31){print "$JJ  $MM  $AAAA -> OK\n";}
	else{print "$JJ  $MM  $AAAA -> KO\n";}
}
#Teste si le mois comprend  30 jours
elsif($MM==4||$MM==6||$MM==9||$MM==11)
{
	if($JJ <= 30){print "$JJ  $MM  $AAAA -> OK\n";}
	else{print "$JJ  $MM  $AAAA -> KO\n";}
}
#Teste si le mois est fevrier
else
{
	if($MM==2)
	#Teste si l'annee est  bissextile
	{	{if(($AAAA%4==0) && ($AAAA%100!=0||$AAAA%400==0))
			{if($JJ <= 29){print "$JJ  $MM  $AAAA -> OK\n";}
				else{print "$JJ  $MM  $AAAA -> KO\n";}
			}
		
		else
		{
			if($JJ <= 28){print "$JJ  $MM  $AAAA -> OK\n";}
			else{print "$JJ  $MM  $AAAA -> KO\n";}
		}
		}
	}	
}