Bonjour,
ce que j'ai :
$date="mer 29 jan 1986 00:00:00 "
ce que je voudrai obtenir :
#$date="jj/mm/AAAA"
$date="29/01/1986"
voici mon code :
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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
sub date_number() 
{
	my @text_date=@_;
	my @tmp_tab=undef;
 
	@tmp_tab=split(/ /,$text_date[0]);
 
	if ($tmp_tab[2] eq "jan") {
		$tmp_tab[2]=01;
	}elsif($tmp_tab[2] eq "fév") {
		$tmp_tab[2]=02;
	}elsif($tmp_tab[2] eq "mar") {
		$tmp_tab[2]=03;
	}elsif($tmp_tab[2] eq "avr") {
		$tmp_tab[2]=04;
	}elsif($tmp_tab[2] eq "mai") {
		$tmp_tab[2]=05;
	}elsif($tmp_tab[2] eq "jun") {
		$tmp_tab[2]=06;
	}elsif($tmp_tab[2] eq "jui") {
		$tmp_tab[2]=07;
	}elsif($tmp_tab[2] eq "aoû") {
		$tmp_tab[2]=08;
	}elsif($tmp_tab[2] eq "sep") {
		$tmp_tab[2]=09;
	}elsif($tmp_tab[2] eq "oct") {
		$tmp_tab[2]=10;
	}elsif($tmp_tab[2] eq "nov") {
		$tmp_tab[2]=11;
	}elsif($tmp_tab[2] eq "déc") {
		$tmp_tab[2]=12;
	}
 
	return $tmp_tab[1].'/'.$tmp_tab[2].'/'.$tmp_tab[3];
}
et l'appel de la fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
$date=date_number($date);
et le message d'erreur :
Too many arguments for main::date_number at ./sybase.pl line 142, near "$date)"
Execution of ./sybase.pl aborted due to compilation errors.
la ligne 142 est l'appel de la fonction

Je doit me tromper quelque part dans ma fonction ou mon appel mais je ne voit pas aider moi.
D'avance merci.