Perl - オブジェクトの配列を構築できません

Question

私は2つの同様の構文を試しました。この最初の1作品：

my $obj = PI::something::ObjectManipulator->new(); 
    $obj->setValue('HELLO'); 
    my $objList = [$object]; 

これを、しかし、しません：

my $objList= []; 
    foreach my $value (@values) { 
    my $obj = PI::something::ObjectManipulator->new(); 
    $obj->setValue($value); 
    push @$objList, $obj; 
    }; 

物事のこれらの二つの方法の違いは何ですか？なぜ二番目の仕事はありませんか？ （$ OBJLISTは、コードの末尾に空のままであることのようです、動作しないことによって。）

Answer 1

my $objList = [$object];を想定しmy $objList = [$obj];ための誤植である、と仮定して、my @values = 'HELLO';、違いはありません。

「$objListがまだ空です」と言われたときに「@$objListがまだ空です」とすると、ループが入力されていない場合（つまり、@valuesが空の場合）にのみ発生します。