Perl Mime :: Lite hash of array derefrence

Question

У меня есть массив hash, который я разыменовал в функции msg->attach()Mime::Lite. Код выглядит следующим образом:

for my $href (@$aref){ 
    $msg->attach(
      Type  => 'text', 
      Data  => "productype: $href->{prodtype} product: $href->{product} qbs_id:$href->{qbs_id}\n"; 
    ); 
} 

Он указывает на синтаксическую ошибку в приведенном выше примере. Пожалуйста, сообщите мне, если это правильный способ поставить msg->attach() в цикле, или мы не сможем сохранить его в цикле. Спасибо.

Answer 1

Внутри списка аргументов для attach, не может быть точек с запятой ;. Используйте запятую , отделить аргументы:

for my $href (@$aref) { 
    $msg->attach(
     Type => 'text', 
     Data => "productype: $href->{prodtype} product: $href->{product} qbs_id:$href->{qbs_id}\n", 
    ); 
} 

Трейлинг запятая также может быть опущена, но я считаю, что плохой стиль.