Discussion :

[mix94]

Bonjour,
Je vous sollicite car aujourd'hui, je sui dans la panade...
Le bout de script que je vous propose devrait m'afficher le mois de decembre complet mais celui ci s'arrete au 28 DEC par consequent il me manque pour cette année 3 jours.
Je vous met en ligne une partie à la demande je mettrais le script complet

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
my ($aplus1new, $aplus1 , $bissextile, $moisparm  ) ;
#
my @start ;
my @stop ;
while (<>) {
  print $_  ;
  open( FILE, $repertoire . $_ ) or die( "Ouverture du fichier $repertoire$_ impossible");
  my @tout = <FILE> ;
  close (FILE) ;
 
  my @Lundi ;
my $j ;
my $jourFinPeriode = 15 ;
  foreach my $line (@tout) {
    $line =~ s/^(.*)\n.*/$1/ ;
    print "** $line\n";
#Premiere ligne : periode demandee
    if ( $line =~ m/^20[0-9]{2},[0-1][0-9]/ ) {
	( $annee , $moisparm ) = ( $line , $line ) ;
	$annee =~ s/^([0-9]{4}),[0-9]{2}.*/$1/ ;
	$moisparm =~ s/^[0-9]{4},([0-9]{2}).*/$1/ ;
my $mm1        = $moisparm ;
if ( $moisparm < 10 ) { $mm1 = "0" . $moisparm }
	$aplus1new = $annee ;
	$aplus1 = $annee + 1 ;
	$amoins1new = $annee ;
	$amoins1 = $annee - 1 ;
#print "aplus1new = $aplus1new, aplus1 = $aplus1, annee = $annee, amoins1new = $amoins1new, amoins1 = $amoins1\n" ;
 
	$moismoins1 = $moisparm - 1 ;
#print "moismoin1 = $moismoins1, moisparm = $moisparm\n\n";
	if ( $moismoins1 eq 0 ) {$moismoins1 = 12 ; $amoins1new = $annee - 1} ;
	@start = ( $amoins1new, $moismoins1, 16 );
	if ($moisparm == 12) { $jourFinPeriode = 31 }
	@stop = ( $annee, $moisparm, $jourFinPeriode );
	$j = Delta_Days( @start, @stop );
    }
    else
    {

dans l'attente de vos lumieres
mix94

[matafan]

Là comme ça, ça va être dur de t'aider sans savoir ce qu'est sensé faire le bout de code que tu as posté.

Celà dit, tu devrais peut-être plutôt regarder du côté du module Time. Ca évite de se prendre la tête avec le nombre de jours dans le mois, le nombre de jours dans l'année, les années bissextiles...