difference entre deux dates en jour

Version imprimable

salut à tous,

j'ai deux dates au forma aaaammjj et je veux calculer la difference, voila ce que j'ai fais
Code:

1 2 3 my ( $annee1, $mois1, $jour1 ) = $plusancien =~ m/(\d{4})(\d{2})(\d{2})/; my ( $annee2, $mois2, $jour2 ) = $plusrecent =~ m/(\d{4})(\d{2})(\d{2})/; my $s_projectduration = Delta_Days( ( $annee1, $mois1, $jour1 ), ( $annee2, $mois2, $jour2 ) );
et la ça ne marche pas, est ce que quelqu'un a une idee de l'erreur que j'ai peut etre commis,merci

01/07/2011, 15h06
djibril

Dans les sources à télécharger.
01/07/2011, 15h12
arm3366

merci j'y vais

@Djibril que pourtatnt que j'ai fait pareil, mais je doute sur la façon dont j'ai decoupé mes date, peut etre avec un plus du bout de mon code vous verrez mon probleme:

Code:

1
2
3
4
5
6
7
8
9
10
my 
       @s_lfdtriee = sort @s_lfd;        #@s_lfd est une liste de date au format aaaammjj
        my @s_lldtriee = sort @s_lld;  #@s_lld est une liste de date au format aaaammjj
        my $plusancien = $s_lfdtriee [0]; # la plus ancienne date des firstdate
        my $plusrecent = $s_lldtriee [-1];  # la plus recente date des lastdate
        #print "Date de lancement de l'etude : $plusancien\n";
        #print "Date de cloture de l'etude : $plusrecent\n";
        my ( $annee1, $mois1, $jour1 ) = $plusancien =~ m/(\d{4})(\d{2})(\d{2})/;
        my ( $annee2, $mois2, $jour2 ) = $plusrecent =~ m/(\d{4})(\d{2})(\d{2})/;
        my $s_projectduration = Delta_Days( ( $annee1, $mois1, $jour1 ), ( $annee2, $mois2, $jour2 ) );

je signale que j'ai utilisé

Code:

use Date::Calc qw(:all);

au debut de mon script

Fais un print pour voir déjà si tu travailles sur des bonnes valeurs
Code:

1 2 print "$plusancien => $annee1, $mois1, $jour1\n"; print "$plusrecent => $annee2, $mois2, $jour2\n";

01/07/2011, 16h56
arm3366

et que pensez-vous de ça:

Code:

my $plusrecent = $s_lldtriee [-1];

sachant j'ai trie une liste de date et je veux recuperer la date la plus recente de la liste triée, est ce que c'est correct?
01/07/2011, 17h00
djibril

Tout dépend de ce qu'il y a dans le tableau ;)
01/07/2011, 17h03
arm3366

dans le tableau il ya des dates de la forme aaaammjj
01/07/2011, 17h16
djibril

as-tu mis les print que je t'ai donné ci-dessus ?
01/07/2011, 17h41
arm3366

oui et voici les erreurs en piece jointe

Citation:

Use of uninitialized value $plusrecent in pattern match (m//) at count2.pl line
324 (#1)
(W uninitialized) An undefined value was used as if it were already
defined. It was interpreted as a "" or a 0, but maybe it was a mistake.
To suppress this warning assign a defined value to your variables.

To help you figure out what was undefined, perl will try to tell you the
name of the variable (if any) that was undefined. In some cases it cannot
do this, so it also tells you what operation you used the undefined value
in. Note, however, that perl optimizes your program and the operation
displayed in the warning may not necessarily appear literally in your
program. For example, "that $foo" is usually optimized into "that "
. $foo, and the warning will refer to the concatenation (.) operator,
even though there is no . in your program.

Use of uninitialized value $annee2 in concatenation (.) or string at count2.pl
line 325 (#1)
Use of uninitialized value $mois2 in concatenation (.) or string at count2.pl
line 325 (#1)
Use of uninitialized value $jour2 in concatenation (.) or string at count2.pl
line 325 (#1)

Use of uninitialized value $year in numeric ge (>=) at
/usr/local/share/perl/5.10.1/Date/Calc/PP.pm line 1502 (#1)
Uncaught exception from user code:
Date::Calc::PP::Delta_Days(): Date::Calc::Delta_Days(): not a valid date at count2.pl line 327
at /usr/local/share/perl/5.10.1/Carp/Clan.pm line 225
Carp::Clan::__ANON__('Date::Calc::Delta_Days(): not a valid date') called at /usr/local/share/perl/5.10.1/Date/Calc/PP.pm line 408
Date::Calc::PP::DATECALC_DATE_ERROR('Delta_Days') called at /usr/local/share/perl/5.10.1/Date/Calc/PP.pm line 671
Date::Calc::PP::Delta_Days(2011, 02, 15, undef, undef, undef) called at count2.pl line 327
main::CheckDatTables called at count2.pl line 61
abderrazagh@cleo:~/amal/scriptdir$
01/07/2011, 18h18
djibril

Bon, si tu veux de l'aide, va falloir nous montrer ton code. C'est difficile à deviner.

pas de souci, c'set juste pour ne pas necombrer la discussion, voici la fonction au complet

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
sub CheckDatTables() {
    print "_________________________________________ CheckDatTables\n";
    my ($s_samplesize, $s_dtc,$s_cmp, $s_rng, $s_qf, $s_sc ) = (0, 0,0,0,0,0); # inititialisation 
    my ($s_status, $s_dmc,$s_de,$s_pr, $s_pcmp, $s_psc, $s_pqf, @s_lfd, @s_lld, @s_infodat);
 
    foreach my $s_project (%datdir){
    $s_samplesize = scalar @{$datdir{$s_project}}; # Taille de l'echantillon d'etude
    #my @s_ldat; 
    foreach my $s_fdat (@{$datdir{$s_project}}){
          open(FHdat, "$s_fdat") or die "Impossible d'ouvrir le fichier $s_fdat";
          while (my $line = <FHdat>)
          {
              chomp ($line);
              # print "$line\n";
              if ($line=~/^\/\// || $line =~ /^$/) { next;}
              #next if ( $line = ~/^\/\//) ; # on ignore les lignes commençanr pat un //
              else  {
                      my ($s_var,$s_val)=split /=/, $line, 2 ; # on divise la ligne en deux parties separée par un "="
                      switch( $s_var)
                      {
                           case (/^qtsatus$/) {
                                                  if ($s_val==1) {$s_rng +=1; }
                                                  if ($s_val==2) {$s_cmp +=1; }
                                                  if ($s_val==3) {$s_sc +=1; }
                                                  if ($s_val==4) {$s_qf +=1; }
                                              }
                           case (/^CW_duration$/) { $s_dtc +=$s_val; }       # on cumule les duree de connexion
                           case (/^CW_firstdate$/) { push  @s_lfd , $s_val; } # on met dans s_lfd les valeurs des "firstdate"
                           case (/^CW_lastedate$/) { push  @s_lld , $s_val; } # on met dans s_lld les valeurs des "lastdate"
 
                      # next if !exists $datvar{$s_var} ;
                       }
            }
        }
        close(FHdat);
        #_=== Calcul ===
        $s_dmc = $s_dtc/$s_samplesize;          # duree moyenne de connexion 
        $s_pr = ($s_rng/$s_samplesize)*100;     # % de runing
        $s_pcmp =($s_cmp/$s_samplesize)*100;    # % de complet
        $s_psc =($s_sc/$s_samplesize)*100;      # % de screenout
        $s_pqf = ($s_qf/$s_samplesize)*100;     # % de quotafull
 
        #_=== Calcul de la duree du terrain ===
        my @s_lfdtriee = sort @s_lfd;
        my @s_lldtriee = sort @s_lld;
        my $plusancien = $s_lfdtriee [0]; # la plus ancienne date des firstdate
        my $plusrecent = $s_lldtriee [-1];  # la plus recente date des lastdate
        #print "Date de lancement de l'etude : $plusancien\n";
        #print "Date de cloture de l'etude : $plusrecent\n";
        my ( $annee1, $mois1, $jour1 ) = $plusancien =~ m/(\d{4})(\d{2})(\d{2})/;
        #print "$annee1\t$mois1\t$jour1\n";
 print "$plusancien => $annee1, $mois1, $jour1\n";
        my ( $annee2, $mois2, $jour2 ) = $plusrecent =~ m/(\d{4})(\d{2})(\d{2})/;
        print "$plusrecent\n";
 
        my $s_projectduration = Delta_Days( ( $annee1, $mois1, $jour1 ), ( $annee2, $mois2, $jour2 ) );
        #print "Duree de terrain: $s_projectduration jours\n";
 
         #===== Une table de sortie contenant les infos des .dat d'un project =====#
        push @s_infodat, $s_samplesize,$s_projectduration, $s_dtc, $s_dmc, $s_pr,$s_pcmp, $s_psc, $s_pqf;
        close (FHdat);
        ${$datinfo{$s_project}} = [@s_infodat];
   }
 }
  #_=== Affichage test de %datinfo ===
  print Data::Dumper->Dump([\%datinfo], [qw(*datinfo)]); # les dat
 
 
}

02/07/2011, 14h41
Philou67430

Ton problème vient du fait que $plusrecent n'a pas de valeur valide (undef) parceque @s_lldtriee est vide.
Et @s_lldtriee est vide parce qu'il n'y a probablement pas de ligne
CW_lastedate
dans ton fichier d'entrée.
Peut-être voulais-tu écrire :

Code:

case (/^CW_lastdate$/) { push @s_lld , $s_val; } # on met dans s_lld les valeurs des "lastdate"

en ligne 29 ?
04/07/2011, 10h30
arm3366

merci c'est exact!
04/07/2011, 10h41
djibril

Le problème est-t-il résolu ? Si oui, merci de le clore.
04/07/2011, 11h45
Philou67430

Il est peut-être temps que tu découvres l'option -d de perl... :mrgreen:
04/07/2011, 12h16
arm3366

j'ai pas compris
04/07/2011, 14h30
Philou67430

dis autrement :

Code:

perldoc perldebug
04/07/2011, 15h24
arm3366

ok c'est note!