Hello,
I am having difficulty, while using strict, to pull an email address out of
a hash from a MySQL querry.
I can get it to print out the result but not the same to go into a Net::SMTP
packet. I am using strict
foreach(my $ref = $sth->fetchrow_hashref()) {
print qq(<tr><td width= 400>$ref->{'pager'}</td></tr>);
use Net::SMTP;
my $smtp = Net::SMTP->new('mailhost', Hello => 'hawkeye.dmtn.com', Debug
=> 1,);
$smtp->mail ( $ref ); # mail($ref);#->{'pager'});
$smtp->to('$name');
$smtp->data();
$smtp->datasend("To: postmaster\n");
$smtp->datasend("\n");
$smtp->datasend("$text \n");
$smtp->dataend();
$smtp->quit;
}
This is driving me nuts, I pulled most of the code directly from CPAN to try and
get it right, and I have the rest of the code running properly.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
