[Probléme] Fonction modification de date

Version imprimable

Bonjour,
ce que j'ai :

Citation:

$date="mer 29 jan 1986 00:00:00 "

ce que je voudrai obtenir :

Citation:

#$date="jj/mm/AAAA"
$date="29/01/1986"

voici mon code :
Code:

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:

1 2 $date=date_number($date);
et le message d'erreur :

Citation:

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.

Je corrige ta fonction :

Code:

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
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];
}

J'ai juste mis entre ' ' les n° de mois car la valeur 01 pour janvier, écrite telle quelle, Perl ne doit pas aimer :aie:

03/12/2007, 10h47
maloute80

Toujours même message

Citation:

Too many arguments for main::date_number at ./sybase.pl line 142, near "$date)"
Execution of ./sybase.pl aborted due to compilation errors.

je pense que c'est la base de ma variable

Citation:

$date="mer 29 jan 1986 00:00:00 "

dans ma fonction elle ne doit pas trouver les bons champs
(c'est une supposition)

J'ai pris la peine de revoir ta fonction date_number qui maintenant, renvoit soit une date correctement formatée, soit 0. Tu peux donc tester son retour et voir s'il faut poursuivre le traitement ou non.

Voilà la fonction :

Code:

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
37
38
39
sub date_number() 
{
	my $RawDate = shift();
 
	my %ConversionMonth;
		$ConversionMonth{'jan'} = "01";
		$ConversionMonth{'fÃ©v'} = "02";
		$ConversionMonth{'mar'} = "03";
		$ConversionMonth{'avr'} = "04";
		$ConversionMonth{'mai'} = "05";
		$ConversionMonth{'jun'} = "06";
		$ConversionMonth{'jui'} = "07";
		$ConversionMonth{'aoÃ»'} = "08";
		$ConversionMonth{'sep'} = "09";
		$ConversionMonth{'oct'} = "10";
		$ConversionMonth{'nov'} = "11";
		$ConversionMonth{'dÃ©c'} = "12";
 
	#mer 29 jan 1986 00:00:00 
	if ($RawDate =~ /.+ +([0-9]{1,2}) +(.+) +([0-9]{4,4}).+/)
	{
		my $day = $1;
		my $month = $ConversionMonth{$2};
		my $year = $3;
 
		if (! $month)
		{
			print "ERREUR lors de la recuperation de la date : mois non reconnu !\n";
			return 0;
		}
 
		return "$day/$month/$year";
	}
	else
	{
		print "ERREUR format de date non reconnu\n";
		return 0;
	}
}

Et son application :

Code:

1
2
3
4
5
6
use strict;
use warnings;
 
$_ = &date_number("mer 29 jan 1986 00:00:00") or die ("pb lors de la recup de la date !\n");
 
print "$_\n";

Ce qui donne en résultat :

Code:

29/01/1986

03/12/2007, 11h21
maloute80
Merci parfait que ferai-je sans toi :yaisse2::king:

Juste une explication sur :
Code:

1 2 if ($RawDate =~ /.+ +([0-9]{1,2}) +(.+) +([0-9]{4,4}).+/)
POur le reste je comprend
03/12/2007, 11h30
Arioch
Citation:
Envoyé par maloute80

Merci parfait que ferai-je sans toi :yaisse2::king:

Juste une explication sur :

Code:

1 2 if ($RawDate =~ /.+ +([0-9]{1,2}) +(.+) +([0-9]{4,4}).+/)

POur le reste je comprend
Cette ligne est une recherche par le biais d'une expression régulière simple.

En gros, ça donne ceci :

si $RawDate contient une chaine de caractère, puis un (ou plusieurs) espaces, puis 1 ou 2 nombres, puis un (ou plusieurs) espaces, puis une chaine de caractères, puis un (ou plusieurs) espaces, puis 4 nombres, puis une chaine de caractères.

Les 3 choses indiquées en gras représentent exactement ce que tu recherches : le jour (sur 1 ou 2 chiffres), le mois sur 3 caractères et l'année sur 4 chiffres. Ces 3 valeurs sont ensuite mémorisées respectivement dans les variables temporaires $1, $2 et $3.
03/12/2007, 11h39
maloute80

merci je comprend mieux maintenant merci pour tout Arioch :D
03/12/2007, 20h56
Jedai

Citation:

Envoyé par Arioch

Code:

sub date_number()

Pourquoi, mais pourquoi mettre un prototype vide à cette fonction !! Omettre le "()" aurait suffit à régler le problème.

Citation:

Envoyé par Arioch

Et son application :

Code:

$_ = &date_number("mer 29 jan 1986 00:00:00") or die ("pb lors de la recup de la date !\n");

Ce "&" avant date_number() n'est nécessaire que pour ignorer le prototype erroné que vous avez donné à date_number(), sinon il ne fait qu'obscurcir le code.

N'utilisez pas de prototypes si vous ne savez pas vous en servir !!

--
Jedaï
04/12/2007, 08h17
maloute80

Merci Jedai je vais essayer ce que tu ma proposer même si la solution de Arioch fonctionne si cela peu me permettre de reduire mon code :)