Comment puis-je obtenir un caractère à un index donné en Perl?

Question

Si j'ai une chaîne Perl:

$str = "Hello"; 

comment puis-je obtenir un caractère à un indice donné similaire à charAt (index)?

Answer 1

Utilisation substr avec une longueur comme dans:

$nth = substr($string, n-1, 1); 

Lookup également perlmonks d'autres solutions.

Answer 2

$char = substr($mainstring, $i , 1); 

Est une façon de le faire, probablement le plus clair.

Si ce que vous manquait était la valeur numérique et vous ont l'intention de faire ce lots:

unpack("W*","hello") 

Renvoie un tableau de valeurs Char:

print join ",", unpack("W*","hello") ; 
# 104,101,108,108,111 

Pour une bonne Unicode/Utf8 choses que vous pourriez vouloir utiliser

use utf8; 
unpack("U*","hello\0ƀ\n") 
# 104,101,108,108,111,0,384,10 

Answer 3

Corol Lary aux autres réponses substr() est que vous pouvez l'utiliser pour définir valeurs à un index également. Il supporte cela comme lvalue ou avec des arguments supplémentaires. C'est aussi très similaire à splice, ce qui est la même chose, mais pour les tableaux.

$string = "hello"; 
substr($string, 2, 2) = "this works?"; 
substr($string, 2, 2, "same thing basically"); 
@a = qw(s t r i n g s a n d t h i n g s); 
@cut_out = splice(@a, 2, 2); 
@cut_out = splice(@a, 2, 2, @replacement);