Discussion :

[floanne]

Bonjour,

j'ai un petit problème après avoir matcher des morceau de chaines de caractères je voudrais connaitre leurs longueur. Je fait donc :

Code :

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

1
2
            my $tmp = $1.$2.$3.$4.$5 ;
            my $rang_C         = length ($tmp) ;

Et ça me renvois 84 alors que ça devrais me renvoyer 23...

J'ai chercher sur google : j'ai trouvé qu'un seul article en anglais que je n'ai pas très bien compris et où ils disent que ce n'est pas un bug... Mais ils ne donnent pas la solution.

Merci de votre aide,
++Florent.

[floanne]

C'est curieux en déséspoire de cause je me suis créé ma propre fonction length :

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
sub myLength
{
    (@_ == 1)
        or die ("\nLa methode enrichirMessage prend 1 argument."
                ."\nElle a etait appelee avec ".@_." argument(s).") ;
    my ($str) = @_ ;
 
    $res = 0 ;
    print "\nmyLength\nstr = [$str]\n" ;
    while ($str =~ m/(.)/g)
    {
        print $1 ;
        $res++ ;
    }
    print "|\nfin myLength\n" ;
    return $res ;
}

Et ça me donne ça :

Code :

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

1
2
3
4
myLength
VSCCP      2317  ]2317  Y  N  6562        09-06-23 15:05:54       -
VSCCP      2317  |  N  6562        09-06-23 15:05:54       -
fin myLength

En fait la chaine passé devrait être "VSCCP 2317 " on dirait que toute ma ligne sur laquelle j'applique la regex est passée mais avec des "curseur" indiquant le début et la fin...

++Florent.

[floanne]

Stop arrétez de vous creuser la tête je suis un blairot : j'avais mis $1 qui matche toute la chaine puis les autre $2, $3 etc qui la décomposent... Comme je dois matcher un \r à la fin de ma chaine le curseur revient au début et réécrit $2, $3... par dessus...

Désolé.

++Florent.

[djibril]

oser critiquer la fonction length de Perl, non mais je rêve