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
{ |
