Perl의 주어진 인덱스에서 어떻게 문자를 얻을 수 있습니까?

Question

나는 펄 문자열이있는 경우 :

$str = "Hello"; 

가 어떻게 수 charAt (인덱스)와 유사한 지정된 인덱스의 위치에있는 문자를 얻을 수 있습니까? 에서와 같이 길이 1

Answer 1

사용 substr :

이

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

또한 다른 솔루션에 대한 perlmonks를 조회.

Answer 2

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

한 가지 방법은 아마도 가장 명확 할 것입니다.

것은 당신이 원하는 있었는지하면하면 숫자 값이고이 많이 할 것을 예정했다 :

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

적절한 유니 코드/UTF8의 경우 :

unpack("W*","hello") 

는 char 값의 배열을 돌려줍니다 쓸만한 것들

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

Answer 3

코올 다른 substr() 대답에 대한 lary는 에 인덱스를 사용하여 값을 설정할 수도 있습니다. 그것은 lvalue 또는 추가 인수로 이것을 지원합니다. 또한 스플 라이스와 매우 비슷합니다. 스플 라이스는 배열과 동일합니다.

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