perl - Perl Mime::Lite 数组解引用散列

Question

我有一个哈希数组，我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",
    );
}

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