Subroutine en perl

Version imprimable

Subroutine en perl

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:

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:

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.

22/03/2011, 15h57
Beniou
Pour déclarer une fonction on utilise le mot clé "sub" et non "function"
Code:

1 2 3 4 5 sub compare_nmc_date { ... ... }
22/03/2011, 16h05
mamax29

et m$*de....

merki

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

Code:

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:

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;
            }

}
}

23/03/2011, 09h25
mamax29

merci Philou67430

Je ne connaissais pas du tout cette notation, et aussi merci pour la bourde du dernier elsif.
23/03/2011, 10h20
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:

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).