Comment obtenir la longueur d'une chaîne de caractères en Perl ?

Question

Quel est l'équivalent en Perl de strlen() ?

Answer 1

Vous ne devriez pas utiliser ceci, puisque length($string) est plus simple et plus lisible, mais je suis tombé sur certains d'entre eux en regardant du code et j'étais confus, donc au cas où quelqu'un d'autre le ferait, ceux-ci obtiennent aussi la longueur d'une chaîne :

my $length = map $_, $str =~ /(.)/gs;
my $length = () = $str =~ /(.)/gs;
my $length = split '', $str;

Les deux premières fonctionnent en utilisant le drapeau global pour faire correspondre chaque caractère de la chaîne, puis en utilisant la liste retournée des correspondances dans un contexte scalaire pour obtenir le nombre de caractères. La troisième fonctionne de la même manière en séparant chaque caractère au lieu d'effectuer une correspondance regex et en utilisant la liste résultante dans un contexte scalaire.