Discussion :

[mamax29]

Bonjour,

Je galère pour faire fonctionner un fonction me permettant de comparer deux heures sous la forme hh:mm:ss


voici le code 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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
use strict;
use warnings;
 
 
function compare_nmc_date
{
    my $first = $_[0];
    my $sec = $_[1];
 
    my ($hou_first) = $first =~ m/(\d\d):\d\d:\d\d/;
    my ($min_first) = $first =~ m/\d\d:(\d\d):\d\d/;
    my ($sec_first) = $first =~ m/\d\d:\d\d:(\d\d)/;
 
    my ($hou_sec) = $sec =~ m/(\d\d):\d\d:\d\d/;
    my ($min_sec) = $sec =~ m/\d\d:(\d\d):\d\d/;
    my ($sec_sec) = $sec =~ m/\d\d:\d\d:(\d\d)/;
 
    if ( $hou_first > $hou_sec )
    {
        return 1;
    }
    elsif ($hou_first < $hou_sec )
    {
        return 0;
    }
    else
    {
        if ( $min_first > $min_sec)
        {
            return 1;
        }
        elsif ( $min_first < $min_sec)
        {
            return 0;
        }
        else
        {
            if ( $sec_first > $sec_sec )
            {
                return 1;
            }
            elsif ( $sec_first > $sec_sec )
            {
                return 0;
            }
            else
            {
                return 0;
            }
        }
    }
}
 
&compare_nmc_date("12:52:13","12:52:12");

et voici les erreurs que perl me ressort:

Code :

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

1
2
3
4
5
6
7
8
9
 
Semicolon seems to be missing at ../Nouveau1.pl line 64.
syntax error at ../Nouveau1.pl line 19, near "my "
Global symbol "$sec" requires explicit package name at ../Nouveau1.pl line 19.
Global symbol "$sec" requires explicit package name at ../Nouveau1.pl line 25.
Global symbol "$sec" requires explicit package name at ../Nouveau1.pl line 26.
Global symbol "$sec" requires explicit package name at ../Nouveau1.pl line 27.
syntax error at ../Nouveau1.pl line 63, near "}"
Execution of ../Nouveau1.pl aborted due to compilation errors.

Je sais que l'erreur est stupide, mais là mes petits yeux ne voient rien qui cloche.

[Beniou]

Pour déclarer une fonction on utilise le mot clé "sub" et non "function"

Code :

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

1
2
3
4
5
 
sub  compare_nmc_date {
...
...
}

[mamax29]

et m$*de....

merki

[Philou67430]

Il est aussi possible de simplifier ta fonction à l'aide des opérateurs <=> et de l'opérateur logique || :

Code :

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

1
2
3
4
5
6
7
8
9
10
sub compare_nmc_date
{
    my ($first, $sec) = @_;
 
    my ($hou_first, $min_first, $sec_first) = $first =~ m/(\d\d):(\d\d):(\d\d)/;
     my ($hou_sec, $min_sec, $sec_sec) = $sec =~ m/(\d\d):(\d\d):(\d\d)/;
 
    my $compare = $hou_first <=> $hou_sec || $min_first <=> $min_sec || $sec_first <=> $sec_sec;
    return $compare > 0 ? 1 : 0;
}

Par ailleurs, le dernier elsif était erroné:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
          if ( $sec_first > $sec_sec )
            {
                return 1;
            }
            elsif ( $sec_first > $sec_sec )
            {
                return 0;
            }
            else
            {
                return 0;
            }

}
}

[mamax29]

merci Philou67430

Je ne connaissais pas du tout cette notation, et aussi merci pour la bourde du dernier elsif.

[Philou67430]

Le même genre d'expression mêlant || et <=> (ou cmp pour des arguments textuels) est utilisable pour faire un tri à plusieurs clés :

Code :

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

1
2
3
@tsv_trie = map { join("\t", @$_) } 
  sort { $a->[0] <=> $b->[0] || $b->[1] cmp $a->[1] } 
  map { split "\t", $_ } @tsv_non_trie;

Le code précédant trie un tableau tsv (tab separated vector) avec pour première clé, la première colonne (tri ascendant numérique) et pour deuxième clés (donc lorsque les premières clés sont égales) la deuxième colonne (tri descendant alphanumérique).