您当前的位置: 各位,请教一下,我装的是WINDOWS SERVER 2003,安装有CGI和Perl程序,请问如何发送网页中的内容到指定的邮箱呀?在网上找了好久都没有合适的内容,请各位指教一下,最好能给个例子,感激不尽.
Best Regards.
peng
------解决方案--------------------
用libnet：
http://search.cpan.org/~gbarr/libnet-1.22/Net/SMTP.pm
或者上search.cpan.org找找，类似于这种：
http://search.cpan.org/~rjbs/Email-Send-2.198/lib/Email/Send/SMTP.pm
------解决方案--------------------
按ls 说的，用 perl 强大的第三方代码库 CPAN 提供的libnet。
[color=#FF0000]我纯jf了lor]
------解决方案--------------------
发电子邮件可以用MIME::Lite模块，比较方便。
------解决方案--------------------
这里有PERL发邮件的例子，你可以用一下，不过要安装Mail::Sendmail 0.79;等这些模块。
- Perl code
#!/usr/bin/perl -w
use Mail::Sendmail 0.79;
use HTML::Entities;
use Encode;
use MIME::QuotedPrint;
use MIME::Base64;
sub sendEmail
{
my($from,$to,$subject,$body)=@_;
$subject= encode_utf8(decode_entities($subject));
$body=encode_utf8(decode_entities($body));
$boundary = "====" . time() . "===="; %mail = (
from => "$from",
to => "$to",
subject => "$subject"
);
$mail{'content-type'} = "multipart/related; boundary="$boundary"";
$boundary = '--'.$boundary;
my $nowtime = time;
$mail{body} = <<END_OF_BODY;
$boundary
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable
$boundary
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable
$body
$boundary--
END_OF_BODY
sendmail(%mail) || print "Error: $Mail::Sendmail::errorn";
}