[Perl] Perl Mail::Sender

作者:reistlin 发布时间:April 14, 2011 分类:自由点击

perl -MMail::Sender -e ''Mail::Sender->printAuthProtocols("smtp.reistlin.com")'';

#!/usr/bin/perl
 
use strict;
use Data::Dumper;
use Mail::Sender;
 
# debug switch
my $debug = 0;
 
my $sender = new Mail::Sender();
 
if ($sender->MailMsg({
	smtp => ''smtp.reistlin.com'',
	from => ''发件人@reistlin.com'',
	to => ''收件人@reistlin.com'',
	subject => "subject",
	msg => "message",
	auth => ''LOGIN'',
	authid => ''username'',
	authpwd => ''password'',
}) < 0) {
	die "$Mail::Sender::Error\n";
}
 
print "Mail Sent OK\n"

[Perl] cpbak2 v1.0

作者:reistlin 发布时间:February 24, 2011 分类:原创文章

作者: reistlin
来源: http://www.reistlin.com/blog/174
更新时间: 2011.02
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

perl.gif

googlecode1.gifgooglecode2.gif
[https://reistlin.googlecode.com/svn/trunk/perl/cpbak2.pl]

阅读剩余部分...

[Perl] cpbak v1.0

作者:reistlin 发布时间:February 23, 2011 分类:原创文章

作者: reistlin
来源: http://www.reistlin.com/blog/173
更新时间: 2011.02
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

perl.gif

googlecode1.gifgooglecode2.gif
[https://reistlin.googlecode.com/svn/trunk/perl/cpbak.pl]

阅读剩余部分...

[Perl] install lib v1.0

作者:reistlin 发布时间:February 22, 2011 分类:原创文章

作者: reistlin
来源: http://www.reistlin.com/blog/172
更新时间: 2011.02
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

perl.gif

googlecode1.gifgooglecode2.gif
[https://reistlin.googlecode.com/svn/trunk/perl/install_lib.pl/]

阅读剩余部分...

[Perl] last logs v1.3

作者:reistlin 发布时间:January 27, 2011 分类:原创文章

作者: reistlin
来源: http://www.reistlin.com/blog/128
更新时间: 2011.01
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

perl.gif

googlecode1.gifgooglecode2.gif
[https://reistlin.googlecode.com/svn/trunk/perl/last_logs2.pl]

阅读剩余部分...

[Perl] renamer v0.2

作者:reistlin 发布时间:September 25, 2010 分类:原创文章

作者: reistlin
来源: http://www.reistlin.com/blog/53
更新时间: 2011.01
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

perl.gif

googlecode1.gifgooglecode2.gif
[https://reistlin.googlecode.com/svn/trunk/perl/renamer.pl]

阅读剩余部分...

[Perl] create md5 v1.0

作者:reistlin 发布时间:August 3, 2010 分类:原创文章

作者: reistlin
来源: http://www.reistlin.com/blog/33
更新时间: 2010.08
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

perl.gif

googlecode1.gifgooglecode2.gif
[https://reistlin.googlecode.com/svn/trunk/perl/create_md5.pl]

阅读剩余部分...

[Perl] check md5 v1.0

作者:reistlin 发布时间:August 2, 2010 分类:原创文章

作者: reistlin
来源: http://www.reistlin.com/blog/32
更新时间: 2010.08
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

perl.gif

googlecode1.gifgooglecode2.gif
[https://reistlin.googlecode.com/svn/trunk/perl/check_md5.pl]

阅读剩余部分...

[Perl] subroutine

作者:reistlin 发布时间:July 2, 2010 分类:原创文章

作者: reistlin
来源: http://www.reistlin.com/blog/28
更新时间: 2010.07
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

perl.gif

googlecode1.gifgooglecode2.gif
[https://reistlin.googlecode.com/svn/trunk/]

1. Print Array - 打印数组

&print_array("数组")

#!/usr/bin/perl -w 
 
use strict;
use Data::Dumper;
 
# Debug Switch
my $debug = 0;
 
sub print_array {
        my @array = @_;
        my $index;
        for ( $index = 0; $index < @array; $index++ ) {
                print "$array[$index] \n";
        }
}
 
# 测试
my @test = (1,2,3,4,5,6,7,8,9,0);
&print_array(@test);

#!/usr/bin/perl -w 
 
use strict;
use Data::Dumper;
 
# Debug Switch
my $debug = 0;
 
sub print_array {
        my @array = @_;
        foreach my $tmp (@array) {
                print "$tmp \n";
        }
}
 
# 测试
my @test = (1,2,3,4,5,6,7,8,9,0);
&print_array(@test);

2. Print Hash - 打印哈希

&print_hash("哈希")

#!/usr/bin/perl -w 
 
use strict;
use Data::Dumper;
 
# Debug Switch
my $debug = 0;
 
sub print_hash {
        my %hash = @_;
        while ( my ($key, $value) = each %hash ) {
                print "$key => $value\n";
        }
}
 
# 测试
my %test = (a=>1, b=>2, c=>3);
&print_hash(%test);

3. Last Digits - 取字符串后"n"位

&last_digits("字符串", "位数")

#!/usr/bin/perl -w 
 
use strict;
use Data::Dumper;
 
# Debug Switch
my $debug = 0;
 
sub last_digits () {
        my $string = shift;
        my $digits = shift;
        my $length = length($string);
        if ($length > $digits) {
                print substr($string, $length - $digits, $digits);
        }
}
 
# 测试
&last_digits("987654321", "3");

[Perl] birthday password dict v1.0

作者:reistlin 发布时间:June 30, 2010 分类:原创文章

作者: reistlin
来源: http://www.reistlin.com/blog/26
更新时间: 2010.06
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

perl.gif

[下载] 1950年1月1日 - 2010年12月31日 [passwd.rar]

googlecode1.gifgooglecode2.gif
[https://reistlin.googlecode.com/svn/trunk/birthday_password_dict.pl]

阅读剩余部分...