Perl Mime ::数组解除引用的Lite哈希

Question

我有一个哈希数组，我在msg->attach()的{​​{1}}函数中取消引用。代码如下：

Mime::Lite

它表示上例中的语法错误。如果这是将for my $href (@$aref){ $msg->attach( Type => 'text', Data => "productype: $href->{prodtype} product: $href->{product} qbs_id:$href->{qbs_id}\n"; ); } 置于循环中的正确方法，或者我们无法将其保持在循环中，请通知我。谢谢。

Answer 1

在attach的参数列表中，不会出现分号;。使用逗号,分隔参数：

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

也可以省略尾随逗号，但我认为这种风格不好。