質問: 'b@aaa.co.jp , c@aaa.co.jp , d@aaa.co.jp'; $server->to($data{'to'}); -----以下エラーメール----- ----- the following addresses had permanent fatal errors ----- ----- transcript of session follows ----- ... while talking to mta.excite.com.: >>> rcpt o: <<< 553 invalid address syntax 550 b@aaa.co.jp,c@aaa.co.jp,d@aaa.co.jp>... ser unknown
回答: activeperlは使ったことはないのですが、 data{'to'}内の文字列を","の部分でsplitしてひとつづつおくるというのはどうでしょう? @users = split(/,/,data{'to'}) で、@userの個数分、それに相当するメールアドレスを foreach $user (@users) { $server->to($user) ...... ...... } とかってできませんでしょうか? あんまりスマートではないかもしれません。 だめでしょうか?