Loading [MathJax]/jax/output/HTML-CSS/jax.js

perl模块编程

简介:
###########################################################
提供个人自己参考的perl代码片段...
###########################################################
#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);
my $url = shift || " http://www.51cto.com";
my content=get(url);
print $content;
exit 0;
获取网页

#!/usr/bin/perl
use strict;
use Net::FTP;
my user="anonymous";mypasswd = "chinaunix@";
my $host = " ftp.freebsd.org";
my ftp=Net::FTP>new("host", Debug =>0)
or die "Can't connect to $host:  $@\n";
ftp>login("user","passwd")ordie"Cantlogin\n",ftp->message;
ftp>cwd("/pub/FreeBSD/doc/")ordie"Cantchangedir\n",ftp->message;
ftp>get("README")ordie"getfailed\n",ftp->message;
$ftp->quit;
exit 0;
FTP下载

#!/usr/bin/perl
use Mail::Sender;
#my mailtext="Dasis\'tderText\ndenichgernesendenwuerde...";mysender = new Mail::Sender {
        smtp => 'smtp.163.com',
     from =>  'zhuzhengju20@163.com',
     auth => 'LOGIN',
     authid => 'zhuzhengju20',
     authpwd => '2000',
     on_errors => undef,
} or die "Can't create the Mail::Sender object: Mail::Sender::Error\n";sender->MailFile({to =>'hahazhu0634@126.com',
       subject => 'Here is the file',
       msg => "I'm sending you the list you wanted.",
       file => './name.txt'}) or print Mail::Sender::Error;sender ->Close();
发送带附件的邮件,需要验证,若不需要验证请参考下面的例子!~
[补充知识]
(1)安装Mail::Sender模组
perl -MCPAN -e shell
install Mail::Sender
(2)测试auth参数使用以下命令:
#perl -MMail::Sender -e "Mail::Sender->printAuthProtocols('smtp.sina.com.cn')"

#!/usr/bin/perl
use Mail::Sender;
open(IN, "< ./index.html") or die("");
$sender = new Mail::Sender{
                                                        smtp =>'localhost',
                                                        from =>'root@localhost'
                                                        };
$sender->Open({
                                        to =>'zhuzhengju20@163.com',
                                        subject =>'hello,baby!',
                                        msg =>"please,recive content!",
                                        ctype =>"text/html",
                                        encoding =>"7bit",
                                        });
while(<IN>)
{
        sender>SendEx(_);
}
close IN;
$sender->Close();
print Mail::Sender::Erroreq""?"sendok!\n":Mail::Sender::Error;
从本地发送HTML的邮件,不需要本地验证(若需验证,请参考上面的例子!~)

#!/usr/bin/perl
# fileName: predate
my %mon=(
  1 =>"Jan",  2 =>"Feb",  3 =>"Mar",  4 =>"Apr",
  5 =>"May",  6 =>"Jun",  7 =>"Jul",  8 =>"Aug",
  9 =>"Sep",  10 =>"Oct", 11 =>"Nov", 12 =>"Dec"
);
my (sec1,min,hour,mday,mon,year,wday,yday,isdst)=localtime(time86400);mon++;
   mon=mon{mon};mday = sprintf("%02s",mday);hour = sprintf("%02s",hour);min = sprintf("%02s",min);sec = sprintf("%02s",sec);year+=1900;
print "mday/mon/year\n";print"hour:min:sec\n";
[注意:]
显示昨天的时间,如果将localtime(time-86400)改成localtime(time)那么时间就为今天的时间了


本文转自hahazhu0634 51CTO博客,原文链接:http://blog.51cto.com/5ydycm/166240,如需转载请自行联系原作者
相关文章
【Python基础篇013】第壹章模块大全之《re模块》
【Python基础篇013】第壹章模块大全之《re模块》
168 0
Python 面向对象 9: 模块和包
Python 面向对象 9: 模块和包
231 0
Python 面向对象 9: 模块和包
一文了解Perl语言
我在公众号发过很多编程语言的学习笔记,但是一直没有发Perl语言的编程教程。我大学的时候,学过一段时间的Perl语言,所以和Perl也有点缘分。这次去北京参加培训时发现他们教的Perl,所以接着机会发一波我现场的学习记录。
1618 0
perl语言 入门
perl语言 入门
2302 0
如何安装perl模块
由于生物信息早期最多用的语言是perl,因此不可避免就要用别人的perl脚本或者基于perl的项目来处理数据。 使用perl脚本和使用其他编程语言的脚本没啥不同,毕竟你只要传入参数,它就能给你结果。
3255 0