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