求助:如何通过perl实现自动发送邮件

[endlessway]

我想将在我的主页上注册的人的注册信息写成文件后自动发送到我的邮箱里面,如何实现自动发送到邮箱,有代码最好!!!

[chaska]

试一试下边的代码
############################send mail##################################
my $mailprog = "/usr/sbin/sendmail -t";
open (MAIL, "|$mailprog $to") || die "Can't open $mailprog!\n";

print MAIL <<"END";
From: $from
To: $to
Subject: 主题
Status:

$content
END

close (MAIL);
#########################################################################

[chaska]

试一试下边的代码
############################send mail##################################
my \$mailprog = "/usr/sbin/sendmail -t";
open (MAIL, "|$mailprog $to") || die "Can't open $mailprog!\n";

print MAIL <<"END";
From: \$from
To: \$to
Subject: 主题
Status:

$content
END

close (MAIL);
#########################################################################

[chaska]

试一试下边的代码
############################send mail##################################
my $mailprog = "/usr/sbin/sendmail -t";
open (MAIL, "|$mailprog $to") || die "Can't open $mailprog!\n";

print MAIL <<"END";
From: \$from
To: \$to
Subject: 主题
Status:

$content
END

close (MAIL);
#########################################################################

[chaska]

试一试下边的代码
my $mailprog = "/usr/sbin/sendmail -t";
open (MAIL, "|$mailprog $to") || die "Can't open $mailprog!\n";

print MAIL <<"END";
From: \$from
To: \$to
Subject: 主题
Status:

$content
END

close (MAIL);

[chaska]

hi

[chaska]

试一试下边的代码
my mailprog = "/usr/sbin/sendmail -t";
open (MAIL, "|mailprog to") || die "Can't open $mailprog!\n";

print MAIL <<"END";
From: from
To: to
Subject: 主题
Status:

content
END

close (MAIL);
#########################################################################

[Garfield]

use Sendmail

[xqterry]

you can use socket ,it is easy and quickly than sendmail -t command.

[duhorse]

use sender.pm,it is very good

[smit]

Mail::Sendmail is ok,and more efficient