Come posso ottenere un carattere in un dato indice in Perl?

Question

Se ho una stringa Perl:

$str = "Hello"; 

come posso ottenere un personaggio in un determinato indice simile a charAt (indice)?

Answer 1

Uso substr di lunghezza 1 come in:

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

Lookup anche perlmonks altre soluzioni.

Answer 2

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

È un modo per farlo, probabilmente il più chiaro.

Se mancasse era il valore numerico e avevate intenzione di fare questo lotti:

unpack("W*","hello") 

restituisce una matrice di valori Char:

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

Per una corretta Unicode/Utf8 roba che potresti voler utilizzare

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

Answer 3

Corol lary alle altre risposte di substr() è che è possibile utilizzarlo per impostare anche i valori in un indice. Supporta questo come lvalue o con argomenti extra. È anche molto simile alla giunzione, che è la stessa cosa, ma per gli array.

$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);