la fonction length se trompe

Version imprimable

30/06/2009, 10h46
floanne

la fonction length se trompe
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:

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.

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

Code:

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:

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.

30/06/2009, 11h13
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.
30/06/2009, 11h16
djibril

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