Как я могу получить символ по заданному индексу в Perl?
Если у меня есть строка Perl:
$str = "Hello";
Как я могу получить символ с заданным индексом, подобным charAt (index)?
3 ответов
использовать substr
С длиной 1 как в:
$nth = substr($string, n-1, 1);
также поиска perlmonks для других решений.
$char = substr( $mainstring, $i , 1 );
это один из способов сделать это, вероятно, самый ясный.
если то, что вы хотели, был цифровой значение, и вы намеревались сделать это много:
unpack("W*","hello")
возвращает массив значений Char:
print join ",", unpack("W*","hello") ;
# 104,101,108,108,111
для правильного материала Unicode / Utf8 вы можете использовать
use utf8;
unpack("U*","helloƀ\n")
# 104,101,108,108,111,0,384,10
следствием других ответов substr () является то, что вы можете использовать его для set значения в индексе также. Он поддерживает это как lvalue или с дополнительными аргументами. Это также очень похоже на splice, что то же самое, но для массивов.
$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);