arrays - Perl - 拆分字符串

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 循环在向上计数时使用小于运算符，例如：

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 ];
}