(包括模块安装)Perl->使用Net::SMTP_auth发邮件

使用Net::SMTP_auth发邮件,首先要先安装Net::SMTP_auth模块。
1. Windows Operating System:如果是在windows操作系统使用的ActivePerl的话,则进入ActivePerl的安装目录的可执行程序目录,也就是bin目录。(例如:C:/Perl/bin)执行命令ppm-shell ,(PPM:Perl Package Manager
Perl包管理器),然后执行命令:
C:/Perl/bin>ppm-shell
ppm 4.01
Copyright (C) 2007 ActiveState Software Inc.  All rights reserved.
ppm>
install Net::SMTP_auth

2. Linux Operating System:如果是在linux操作系统使用Perl的话,则使用命令cpan后面跟要安装的模块就可以了。(如果是第一次使用cpan的话,会要求先配置cpan的一些信息,一直按默认的设置就可以了)。
[
[email protected] ~]# cpan Net::SMTP_auth
(Net::SMTP_auth使用说明:
http://search.cpan.org/~apleiner/Net-SMTP_auth-0.08/SMTP_auth.pm
接下来就是要编写Perl程序,测试发信。
程序名称:SMTP.pl
 
 
#!c:/perl/bin/perl.exe -w  
#如果你的是Linux环境下的话,则使用(#!/usr/bin/perl -w)
use Net::SMTP_auth;
$smtp = Net::SMTP_auth->new('smtp.qq.com',
Hello => 'qq.com',
Debug => 1);
$smtp->auth('LOGIN', '您的QQ号码', ‘您的QQ密码');
$smtp->mail('您的QQ号码@qq.com');
$smtp->to('您的QQ号码@qq.com');
$smtp->data();
$smtp->datasend("From:您的QQ号码/@qq.com /n");
$smtp->datasend("To: 您的QQ号码/@qq.com /n");
$smtp->datasend("Subject: Test Mail /n");
$smtp->datasend("/n");
$smtp->datasend("这是一封测试邮件 /n");
$smtp->dataend();
$smtp->quit;

测试结果:
C:/test>perl smtp.pl
Net::SMTP_auth>>> Net::SMTP_auth(0.08)
Net::SMTP_auth>>>   Net::SMTP(2.31)
Net::SMTP_auth>>>     Net::Cmd(2.29)
Net::SMTP_auth>>>       Exporter(5.60)
Net::SMTP_auth>>>     IO::Socket::INET(1.31)
Net::SMTP_auth>>>       IO::Socket(1.30)
Net::SMTP_auth>>>         IO::Handle(1.27)
Net::SMTP_auth=GLOB(0x1a196c4)<<< 220 smtp.qq.com ESMTP QQMail Ver 2.2
Net::SMTP_auth=GLOB(0x1a196c4)>>> EHLO qq.com
Net::SMTP_auth=GLOB(0x1a196c4)<<< 250-smtp.qq.com
Net::SMTP_auth=GLOB(0x1a196c4)<<< 250-PIPELINING
Net::SMTP_auth=GLOB(0x1a196c4)<<< 250-SIZE 52428800
Net::SMTP_auth=GLOB(0x1a196c4)<<< 250-AUTH LOGIN
Net::SMTP_auth=GLOB(0x1a196c4)<<< 250-AUTH=LOGIN
Net::SMTP_auth=GLOB(0x1a196c4)<<< 250 8BITMIME
Net::SMTP_auth=GLOB(0x1a196c4)>>> AUTH LOGIN
Net::SMTP_auth=GLOB(0x1a196c4)<<< 334 VXNlcm5hbWU6
Net::SMTP_auth=GLOB(0x1a196c4)>>> NDcyNTU0OTc3
Net::SMTP_auth=GLOB(0x1a196c4)<<< 334 UGFzc3dvcmQ6
Net::SMTP_auth=GLOB(0x1a196c4)>>> W3dhbnl4eTc4OTIwNTld
Net::SMTP_auth=GLOB(0x1a196c4)<<< 235 Authentication successful
Net::SMTP_auth=GLOB(0x1a196c4)>>> MAIL FROM:<您的QQ号码@qq.com>
Net::SMTP_auth=GLOB(0x1a196c4)<<< 250 Ok
Net::SMTP_auth=GLOB(0x1a196c4)>>> RCPT TO:<您的QQ号码@qq.com>
Net::SMTP_auth=GLOB(0x1a196c4)<<< 250 Ok
Net::SMTP_auth=GLOB(0x1a196c4)>>> DATA
Net::SMTP_auth=GLOB(0x1a196c4)<<< 354 End data with .
Net::SMTP_auth=GLOB(0x1a196c4)>>> From: 您的QQ号码@qq.com
Net::SMTP_auth=GLOB(0x1a196c4)>>> To: 您的QQ号码@qq.com
Net::SMTP_auth=GLOB(0x1a196c4)>>> Subject: Test Mail
Net::SMTP_auth=GLOB(0x1a196c4)>>> 这是一封测试邮件
Net::SMTP_auth=GLOB(0x1a196c4)>>> .
Net::SMTP_auth=GLOB(0x1a196c4)<<< 250 Ok: queued as
Net::SMTP_auth=GLOB(0x1a196c4)>>> QUIT
Net::SMTP_auth=GLOB(0x1a196c4)<<< 221 Bye

你可能感兴趣的:(Perl)