关于perl发邮件的问题
my $sth = $dbh->prepare("SELECT * from list where Status='1' order by Id asc");
$sth->execute();
while(my $ref = $sth->fetchrow_hashref()) {
$aaa="$ref->{'To_Email'}";
}
$bbb="$aaa";
open (MAIL, "|/usr/sbin/sendmail -t") || return 0;
select (MAIL);
print<<"EOF";
To:$bbb
From:aaa\@163.com
Subject: test
$time
Test
EOF
close(MAIL);
select(STDOUT);
以上代码运行总提示我：User unknown ,,但是我的邮件都是存在的，如果把$bbb="bbb@126.com"就可以发出去。。为什么换成从数据库调用出来的就不行呢？
[解决办法]
为什么换成从数据库调用出来的就不行呢？
---
不可能 ，如果是这样 ，100%是你从数据库取出来的记录不对 ，你可以把 $bbb 打印出来看看
[解决办法]
我也觉得奇怪，我输出了：输出$bbb=ccc\@126.com,错误提示：ccc\@126.com... User unknown
输出是正确的，单体是找不到这个邮件。
