Problème avec le format de date sur PC
Bonjour,
Je souhaite utiliser un programme perl soit sous linux ou sur PC window , mais j'ai un problème de format de date. Lorsque je fais tourner le programme sous le PC window en setup Français, il me converti les dates en francais avec strftime .
Je ne trouve pas comment je peux garder le format "Anglais" de date sur le PC.
L'utilisateur entre une date (ex 12/06/2013) et ensuite je veux effectuer des calculs à partir de cette date pour calculer des dates de livraison.
Lorsque je reformate la date à inclure dans un xml , celle ci s'écrit en mettant les mois en français au lieu d'anglais...
Je joins ci-dessous une partie du code ....
------------------------------------------------------------
$order_date=12/06/2013 # 12/6/2013 vient de $ARGV[2]
my @tmpdate=split(/\//,$order_date);
# Validation of entered date
if (($order_date !~ /\d{1,2}\/\d{1,2}\/\d{4}/) ||($tmpdate[0] > 31) || ($tmpdate[1] > 12)) {
print "Bad date format entered , should be DD/MM/YYYY\n";
exit;
}
# Month start at 0 , so substract 1 to the month
$tmpdate[1]=$tmpdate[1]-1;
my @dt1=(0,0,0,$tmpdate[0],$tmpdate[1],$tmpdate[2]);
my $dt1=timelocal(@dt1);
print "Local ".scalar localtime($dt1)." \n";
$dt1=$dt1+(1*3600*24);
print "L+1".scalar localtime($dt1)." ll\n";
my $date_arrival= strftime("%d-%b-%Y",localtime($dt1));
print "Formated date: $date_arrival\n";
---------------------------------------------------------
Avez-vous une idée car la je sèche, je n'utilise peut être pas la bonne méthode ...?
Merci
Répondre avec citation
Partager