problème de condition if elsif

Version imprimable

Bonjour,

tout d'abord je suis débutant en PERL.

J'ai un souci que je n'arrive pas à expliquer, je fais des tests de condition pour définir le dernier jour du mois d'avant la date système et lorsque je veux tester pour les mois : 08 09 10 11

cela ne fonctionne plus, pourriez vous m'aider s'il vous plait.

voici mon code qui fonctionne :

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
my ($secondes, $minutes, $heures, $jour_mois, $mois,
    $an, $jour_semaine, $jour_calendaire, $heure_ete) = localtime(time);
$minutes = sprintf("%02d",$minutes);
$heures = sprintf("%02d",$heures);
$jour = sprintf("%02d",$jour_mois);
$mois_avant = sprintf("%02d",$mois);
$mois = sprintf("%02d",$mois+1);
 
if ($mois_avant == 0){
$mois_avant = 12;
$dernierjour = 31;
}
elsif (($mois_avant == 01)||($mois_avant == 03)||($mois_avant == 05)||($mois_avant == 07)){
$dernierjour = 31;
}
elsif (($mois_avant == 04)||($mois_avant == 06)){
$dernierjour = 30;
}
elsif ($mois_avant == 02){
$dernierjour = 28;
}
 
 
$an = sprintf("%04d",$an+1900);
$startdate= '01/'.$mois_avant."/".$an;
$enddate= $dernierjour.'/'.$mois_avant."/".$an;
$fname = $dernierjour."_".$mois_avant;
 
# modification du sql
if (!-d "sql"){
	mkdir("sql");
}
open(O,">sql/$fname.sql");

Et maintenant il ne fonctionne plus :

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
my ($secondes, $minutes, $heures, $jour_mois, $mois,
    $an, $jour_semaine, $jour_calendaire, $heure_ete) = localtime(time);
$minutes = sprintf("%02d",$minutes);
$heures = sprintf("%02d",$heures);
$jour = sprintf("%02d",$jour_mois);
$mois_avant = sprintf("%02d",$mois);
$mois = sprintf("%02d",$mois+1);
 
if ($mois_avant == 0){
$mois_avant = 12;
$dernierjour = 31;
}
elsif (($mois_avant == 01)||($mois_avant == 03)||($mois_avant == 05)||($mois_avant == 07)||($mois_avant == 08)){
$dernierjour = 31;
}
elsif (($mois_avant == 04)||($mois_avant == 06)){
$dernierjour = 30;
}
elsif ($mois_avant == 02){
$dernierjour = 28;
}
 
 
$an = sprintf("%04d",$an+1900);
$startdate= '01/'.$mois_avant."/".$an;
$enddate= $dernierjour.'/'.$mois_avant."/".$an;
$fname = $dernierjour."_".$mois_avant;
 
# modification du sql
if (!-d "sql"){
	mkdir("sql");
}
open(O,">sql/$fname.sql");

Merci d'avance :(

07/05/2008, 12h07
Arioch

:mouarf:

Hello,

le problème, c'est que tu demandes à ton programme de faire quelque chose uniquement pour tous les mois autres que 08 09 10 11.

Il me semble que tu as oublié quelque chose... Comme un else par exemple :mrgreen:
07/05/2008, 12h12
Z3phur
J'ai dû mal m'exprimer car dans le code n°1 cela marche et des que j'ajoute pour 08 cela ne marche pas.

De plus j'ai aussi essayé d'ajouter pour 09 10 et 11 et même problème, et j'ai aussi essaye de faire juste
Code:

1 2 3 if ($mois_avant == 08){ $dernierjour = 31; }
et cela ne marche pas , pourquoi???
07/05/2008, 12h14
Arioch
Citation:
Envoyé par Z3phur

J'ai dû mal m'exprimer car dans le code n°1 cela marche et des que j'ajoute pour 08 cela ne marche pas.

De plus j'ai aussi essayé d'ajouter pour 09 10 et 11 et même problème, et j'ai aussi essaye de faire juste

Code:

1 2 3 if ($mois_avant == 08){ $dernierjour = 31; }

et cela ne marche pas , pourquoi???
08 n'est pas du numérique, voilà pourquoi

Ceci marcherait mieux :
Code:

1 2 3 if ($mois_avant =~ /^08$/){ $dernierjour = 31; }
07/05/2008, 12h17
Z3phur

Merci beaucoup pour ta réactivité,

cela marche maintenant, mais pourquoi 07 est numérique et pas 08???
07/05/2008, 12h20
Arioch

Citation:

Envoyé par Z3phur

Merci beaucoup pour ta réactivité,

cela marche maintenant, mais pourquoi 07 est numérique et pas 08???

Ah, parce que ça fonctionne avec 07 ???
07/05/2008, 13h16
Z3phur

oui cela fonctionne avec 01 02 03 04 05 06 07

et pas avec 08 09 10 11

D'où mon étonnement
07/05/2008, 13h21
Arioch
Ok, alors je te conseillerais bien d'ajouter un print de $mois_avant juste avant le 1er if de ton code :
Code:

1 2 3 4 5 6 7 ... ... ... $mois = sprintf("%02d",$mois+1); print "avant le if, \$mois_avant vaut \'$mois_avant\'\n"; if ($mois_avant == 0){ ... ... ...
Ca te permettra d'avoir un visuel du contenu exact de ta variable $mois_avant :D
07/05/2008, 13h27
Z3phur

Merci pour les conseils mais mon script est trop rapide et la console ne s'affiche pas assez longtemps pour que je puisse lire le print.

je vais voir si j'arrive à écrire dans un fichier de log alors.
07/05/2008, 13h38
Z3phur
helas si tu pouvais me donner un petit coup de pouce encore une fois mais pour écrire la sortie du print dans un fichier car j'essai plusieurs manières mais sans reussite :
Code:

1 2 3 open(O,>test.log"); print "avant le if, \$mois_avant vaut \'$mois_avant\'\n" >> test.log;
En fin de compte c'est la redirection que je ne connais pas, car avant je créé le fichier mais pour écrire dedans je n'y arrive pas.
07/05/2008, 13h42
Arioch
Citation:
Envoyé par Z3phur

helas si tu pouvais me donner un petit coup de pouce encore une fois mais pour écrire la sortie du print dans un fichier car j'essai plusieurs manières mais sans reussite :

Code:

1 2 3 open(O,>test.log"); print "avant le if, \$mois_avant vaut \'$mois_avant\'\n" >> test.log;

En fin de compte c'est la redirection que je ne connais pas, car avant je créé le fichier mais pour écrire dedans je n'y arrive pas.
Ok :D

Soit tu écris dans un log pour voir ce que donne le print, auquel cas tu fais comme ceci :
Code:

1 2 3 open(O, ">test.log"); print O "avant le if, \$mois_avant vaut \'$mois_avant\'\n";
Soit, pour que ta console (MS DOS je suppose ?) reste ouverte, rajoute cette ligne là tout à la fin de ton code :

Code:

<STDIN>;
07/05/2008, 13h46
Z3phur

Encore une fois je te remercie de ta disponibilité, grâce à toi je vais aimer apprendre à développer en PERL même si ce n'est pas mon travail car je suis DBA.

Merci Arioch :king:
07/05/2008, 13h48
Arioch

Citation:

Envoyé par Z3phur

Encore une fois je te remercie de ta disponibilité, grâce à toi je vais aimer apprendre à développer en PERL même si ce n'est pas mon travail car je suis DBA.

Merci Arioch :king:

De rien mais est-ce que tu as mis le doigt sur ton problème ?
07/05/2008, 13h51
Z3phur

oui, en effet grâce à tes explications j'ai pu voir que :

Code:

$mois_avant = sprintf("%02d",$mois);

me retourne une chaine de caractère donc j'ai mis le code que tu m'as donné pour toutes les conditions par contre je ne m'explique pas encore totalement pourquoi de 0 à 07 cela donne un numérique et à partir de 08 cela reste une chaine de caractère.
07/05/2008, 13h55
Z3phur

Aurais tu un lien sur une bonne documentation sur le perl, comme cela je posterais seulement en cas de gros soucis.
07/05/2008, 13h58
Arioch

Tu devrais trouver ton bonheur ici : http://www.developpez.net/forums/showthread.php?t=400

;)
07/05/2008, 15h46
Z3phur
Re bonjour,

j'essai maintenant de faire un test pour savoir si nous sommes dans une année bissextile ou pas, j'ai repris le code d'un script shell que j'avais fait mais évidement cela ne fonctionne pas avec le perl.
Code:

1 2 3 4 5 6 7 8 9 10 11 if ($($an % 400) -eq "0"){ $bisextile = 1; }elsif ($($an % 4) -eq 0){ if ($($an % 100) -ne 0){ $bisextile = 1; }else{ $bisextile = 0; } }else{ $bisextille=0; }
quelqu'un pourrait il me dire à quel niveau cela plante car je ne connais pas assez la syntaxe perl, merci

je "suppose" que le code correcte est :
Code:

1 2 3 4 5 6 7 8 9 10 11 if ( ($an % 400) == 0) {$bisextile = 1;} elsif ( ($an % 4) == 0) { if ( ($an % 100) != 0) {$bisextile = 1;} else {$bisextile = 0;} } else {$bisextille=0;}
ou bien
Code:

1 2 3 4 5 6 7 8 9 10 11 if (!($an % 400)) {$bisextile = 1;} elsif (!($an % 4)) { if ($an % 100) {$bisextile = 1;} else {$bisextile = 0;} } else {$bisextille=0;}
les 2 codes faisant la même chose le premier est plus intuitif le second plus concis

bon je pas trop coder en shell mais j'ai supposer que -eq voulais dire est égale à, -ne est différent de et que % voulais dire modulo

07/05/2008, 16h49
Z3phur

Merci beaucoup cela marche super bien

:D