[三星]写一个脚本检查邮箱地址的可用性

除了美化之外,还可以来尝试挑战一下任务
回复
头像
Ce L-sky
帖子: 54
注册时间: 2011-02-11 12:02
系统: cent Ub winxp,03,7,8
送出感谢: 0
接收感谢: 0
联系:

Re: [三星]写一个脚本检查邮箱地址的可用性

#16

帖子 Ce L-sky » 2011-11-26 8:10

Xiaoun 写了::em23 额。。大概是发个邮件先!看是否接到!跟Ping 差不多吧!
晕,不是发邮件,是根据SMTP协议来查询,返回的状态码来看的。就和去问别人单位有没那人一样,服务器返回说没有,那么就是不存在那个电子邮件地址。
用来发垃圾邮件不靠谱,因为很多服务器都限制了查询速度的。特别是TX。

代码: 全选

#include <code>
<? Using System.Application.Php; __halt_compiler__ ?>

代码: 全选

>@import mysql;
 Query OK.(0.001s)
>SELECT * FROM 0x627261696e;
 Empty set.(0.001s)
md5 crack:http://md5.emce.org,billions of records all for free.
头像
eexpress
帖子: 58428
注册时间: 2005-08-14 21:55
来自: 长沙
送出感谢: 4 次
接收感谢: 256 次

Re: [三星]写一个脚本检查邮箱地址的可用性

#17

帖子 eexpress » 2011-11-26 8:39

代码: 全选

● perl -MMail::Sender -e 'Mail::Sender->printAuthProtocols("smtp.163.com")'
smtp.163.com supports: PLAIN, LOGIN
现成的模块,可以测试的。
● 鸣学
niejieqiang
帖子: 151
注册时间: 2009-05-29 22:05
送出感谢: 0
接收感谢: 0

Re: [三星]写一个脚本检查邮箱地址的可用性

#18

帖子 niejieqiang » 2011-11-28 11:48

这论坛还有这么个版块。。。。。

cpan上模块好多哦。至于任务的目的是没有达到的(掌握XXX原理 :em20:em03

代码: 全选

use Mail::CheckUser qw(check_email last_check);

    my $email = 'blabla@foo.bar';

    if(check_email($email)) {
        print "E-mail address <$email> is OK\n";
    } else {
        print "E-mail address <$email> isn't valid: ",
              last_check()->{reason}, "\n";
    }
回复

回到 “非常任务”