Discussion :

[olivier1209]

bonjour,
je dois afficher une date de la manière suivante :
entrée clavier "1.2.2010" => 1 février 2010 : hiver. j'ai déja commencé avec split à extraire le mois pour en déduire la date, mais j'ai un peu de mal
pourriez vous m'aider svp ? merci d'avance

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
37
38
39
40
41
42
43
44
45
46
47
48
 
@tableau = ("hiver","printemps","automne", "hiver");
 
print "entrez une date\n" ;
$date = <STDIN>;
 
 
 
@datesplit = split(/./, $date);
 
print $datesplit[0] ;
print $datesplit[1] ;
 
 
if ($datesplit[1] <= 3 && $datesplit[1]>=1)
 
{print  "hiver";}
 
 
else { 
 
   if ($datesplit[1] <= 6 && $datesplit[1]>=3)
 
{print  "printemps";}
 
 
else { 
    if ($datesplit[1] <= 9 && $datesplit[1]>=5)
 
{print  "été";}
 
 
else {  
    if ($datesplit[1] <= 12 && $datesplit[1]>=7)
 
{print  "automne";}
 
else {
print "toto" ;
 
print $date ;
print @datesplit ;
 
 
}
}
}
}

[Beniou]

Bonjour,

Plusieurs remarques :
1- ton split ne marche pas : il faut "échapper" le "." avec un "\" car c'est un caractère spécial (cf : regarde les cours sur les expressions régulières).
Pour splitter ta date tu peux faire comme ceci par exemple :

Code :

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

1
2
 
my ($jour,$mois,$annee) = split(m{\.}, $date);

2- attention à l'indentation de ton code car comme ceci ce n'est pas très lisible pour nous comme pour toi...

3- utilise les pragma strict et warnings au début de ton code

Code :

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

1
2
3
 
use strict;
use warnings;

Tu devras déclarer tes variables la première fois avec le "my" mais pour la suite ces deux pragmas t'aideront à ne pas faire d'erreurs d'étourderies.

Pour le reste ce sont juste des tests sur les valeurs de mois et jours donc tu devrais y arriver. Mais si tu as un soucis n'hésite pas.

[Philou67430]

Pour afficher la date au format ascii, regarde le module POSIX, fonction strftime (man strftime pour obtenir la description complète du format).