펄 - 문자열

Question

을 분할 내가 배열을하고있어 그 내용 구절의 각 단어를. 분할하여 길이를 인쇄하려고하면 콘솔에서 111039391231319239188238139123919232913123... (더 많은 행)과 같은 엄청난 숫자를 보냅니다. 왜?

$mynames = $texto3; 
print $mynames. "\n"; 
@nameList = split(' ', $texto3); 
#print @nameList.length(); 
for ($to = 0; $to<@nameList.length; $to++){ 
     if($to<@nameList.length) { 
       @nameList[$to] = @nameList[$to] . "_" . @nameList[$to++]; 
     } 
     print $to; 
     #print @nameList[$to] . "\n"; 
} 
$string_level2 = join(' ', @nameList); 
#print $string_level2; 

Answer 1

배열의 길이가 scalar @nameList 대신 @nameList.length 사용 얻으려면 :

여기 내 코드입니다.

에 대한 루프 전형적인는 덜보다 사용하는 운영자는 부작용을 이해하지 않는 한 당신은 후행 증가를 사용해서는 안 :,

for ($to = 0; $to < scalar(@nameList); $to++) ... 

을 예컨대을 계산합니다. 나는 다음 줄 믿습니다

@nameList[$to] = @nameList[$to] . "_" . @nameList[$to++]; 

가 ...로 작성되어야한다 ...

    $nameList[$to] = $nameList[$to] . "_" . $nameList[$to + 1]; 

마지막으로 당신은 루프 내에서 $to + 1를 참조 때문에 (경계 조건을 고려한다 사용하는 비교) :

if($to < (scalar(@nameList) - 1)) { 
    $nameList[ $to ] = $nameList[ $to ] . "_" . $nameList[ $to + 1 ]; 
}