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.