+ -
当前位置:首页 → 问答吧 → Perl写的情书生成投递程序

Perl写的情书生成投递程序

时间:2011-07-08

来源:互联网

为了给Perl版增加一点娱乐,为正在犹豫的小弟小妹们增加一点学Perl的热情,特翻出陈年老程序供大家一乐,地址如下:

http://www.class22.net/cgi-bin/loveletter.pl

很久以前,在一个很无聊的时间,瞎编的,大家别用砖拍我啊!

作者: iamlimeng   发布时间: 2011-07-08

楼主,这个代发的功能如何实现的?

作者: x9x9   发布时间: 2011-07-08

最开始的时候,服务器上允许使用sendmail程序,后来大多数邮件都需要验证,现在改用Net::SMTP了,更方便。

作者: iamlimeng   发布时间: 2011-07-08

呵呵,有创意!

作者: mitmax   发布时间: 2011-07-08



QUOTE:
最开始的时候,服务器上允许使用sendmail程序,后来大多数邮件都需要验证,现在改用Net::SMTP了,更方便。
iamlimeng 发表于 2011-07-08 16:24



我想知道这个代发是怎么实现的?看到有时spam邮件是这样显示的。

2011-07-08 16:29

作者: x9x9   发布时间: 2011-07-08

本帖最后由 iamlimeng 于 2011-07-08 16:37 编辑

我是用我的账号经服务器验证后发邮件,但发件人栏,程序中改写成你填的发件人邮箱,这样,收件人直接回复,就不会回到我的邮箱,而是回复到发件人邮箱。

你看一下收到的邮件的原码,就知道了!

作者: iamlimeng   发布时间: 2011-07-08



QUOTE:
我是用我的账号经服务器验证后发邮件,但发件人栏,程序中改写成你填的发件人邮箱,这样,收件人直接回复, ...
iamlimeng 发表于 2011-07-08 16:36



嗯。知道了。你用的企业邮箱没有限制吧?我用163的发不了两封就死翘翘了。
有没有Perl 的模块可以模拟一个mail 服务器,这样我们可以简单的设置来发邮件?

作者: x9x9   发布时间: 2011-07-08

用163应该也可以的吧,我每天用OE通过163发几十封都没有问题啊

作者: iamlimeng   发布时间: 2011-07-08

很不错的程序

作者: 首天   发布时间: 2011-07-08