PB Utilisation fonction date_to_text_Long

**Edrimor** · 29/07/2010, 13h18

Bonjour à tous,

J'essaye désespérément d'utiliser la fonction date_to_text_Long du module Date::Caclc en Perl.
Elle a pour effet de convertir une date au format texte.
Ex : 2010-07-29 devient "Jeudi 29 Juillet 2010"

Il est écrit dans la doc CPAN qu'elle s'utilise ainsi :
$string = Date_to_Text_Long($year,$month,$day[,$lang]);

Où la variable $lang est un chiffre de 1 à 14 désignant le langage souhaité (en l'occurence 2 pour le français).

Mon problème c'est qu'en pratique, la fonction date_to_text_Long ne semble pas apprécier ce 4ème paramètre.
Message d'erreur à la compil : "Usage: Date::Calc::Date_to_Text_Long(year, month, day)"

Alors est ce moi qui m'y prends mal ou bien existe t'il une subtilité pour obtenir ma date en français ?

En vous remerciant.

Edrimor

**Beniou** · 29/07/2010, 15h26

Bonjour,

Pour m'en rendre compte j'ai fait un premier script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl -w
 
use strict;
use Date::Calc;
 
my $year = 2010;
my $month = 7;
my $day = 29;
my $language = 2;
 
my $string = Date::Calc->Date_to_Text_Long($year,$month,$day,$language);
print $string."\n";

qui me donne bien la même erreur que toi.

J'ai alors tené une deuxième version en chargeant la fonction directement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl -w
 
use strict;
use Date::Calc qw(Date_to_Text_Long);
 
my $year = 2010;
my $month = 7;
my $day = 29;
my $language = 2;
 
my $string = Date_to_Text_Long($year,$month,$day,$language);
print $string."\n";

Et là miracle ca a marché ...

Alors bon je n'ai pas encore vraiment d'explication mais je pense que cela vient de Language qui est géré de façon globale. J'ai pas tout lu le paragraphe dessus mais je pense que la réponse y est. On peut utiliser aussi la méthode Decode_Language pour recherche ce fameux 2 pour le français car cela change en fonction du système ...

**Edrimor** · 29/07/2010, 15h58

Merci pour ta réponse rapide.

Hélas cela ne fonctionne pas chez moi.
Je vais donc contourner le problème en faisant ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
if($ma_date=~/(\d*)-0?(\d*)-0?(\d*)/){
	$year=$1;
	$month=$2;
	$day=$3;
 
	$date_texte_tmp=Date_to_Text_Long($year,$month,$day);
 
	if($date_texte_tmp=~/(\w+), (\w+)/){
 
		$date_texte=$jour_fr{$1}." $day ".$mois_fr{$2}." $year";
	}
        else{
		print "Erreur conversion date\n";
	}
}
else{
	print "Erreur parsing date :: $ma_date\n";
 
}

Avec les tables de hachage jour_fr et mois_fr qui font la correspondance Anglais-->français.
J'aurais préféré faire ça différemment mais bon^^.

**Philou67430** · 29/07/2010, 16h23

Pourquoi ne pas utiliser le formatteur de date POSIX strftime ?

Pour la syntaxe du format : man strftime
Pour utiliser la locale "fr", si ce n'est pas celle de l'environnement par défaut, utiliser setlocale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
use POSIX qw(strftime setlocale);
 
setlocale(LC_TIME => "fr_FR");
print strftime "%A %d %B %Y", localtime(time);

Pour aujourd'hui, le résultat est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

jeudi 29 juillet 2010

Pour obtenir une date à fournir à strftime à partir d'une date numérique, utiliser mktime (aussi dans POSIX).

**Beniou** · 29/07/2010, 16h27

Bonne idée Philou d'utiliser le strftime.

Par contre aurais-tu une idée du pourquoi du comment que la version 1 chez moi ne marche pas alors que la version 2 oui ?