perl - 値からの perl ループのマップ

Question

次のコードが機能しない理由を理解できません。

<%method getvivekBox>
  <%args>
   $BoxName
  </%args>

  <%perl>
    return {
      type        => 'vivek',
    };
  </%perl>
</%method>




<%method getAll>
 <%args>
  $BoxGroup
  $indexex
 </%args>
  <%perl>
    my $x =  map { $m->comp('SELF:getvivekBox' , BoxName => "$BoxGroup-$_"); } @$indexex;

    return $x;
  </%perl>
</%method>

getAll引数、ボックス、およびを呼び出しています(1..10)。11 を返していますが、期待される動作は 10 要素を返すはずです。

Answer 1

mapリストで別のリストを生成します。の結果をmapスカラーに割り当てているため、 に割り当てられた要素の数が得られ$xます。

に変更$xする@xか[]、map($x配列参照を作成するために) で囲みます。