Wie kann ich ein Zeichen für einen bestimmten Index in Perl bekommen?

Question

Wenn ich einen Perl-String habe:

$str = "Hello"; 

wie kann ich ein Zeichen zu einem bestimmten Index ähnlich wie charAt (Index) bekommen?

Answer 1

Verwenden substr mit der Länge 1, wie in:

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

Auch perlmonks für andere Lösungen Nachschlag.

Answer 2

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

Ist eine Möglichkeit, es zu tun, wahrscheinlich die klarste.

Wenn das, was Sie war der numerischen Wert fehlte und man diese viel zu tun beabsichtigten:

unpack("W*","hello") 

Gibt ein Array von Char-Werte:

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

Für die richtige Unicode/Utf8 Sachen, die Sie verwenden möchten

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

Answer 3

Corol Lary zu den anderen substr() Antworten ist, dass Sie es zu Werte an einem Index auch verwenden können. Es unterstützt dies als Lvalue oder mit zusätzlichen Argumenten. Es ist auch sehr ähnlich Spleiß, das ist die gleiche Sache, aber für Arrays.

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