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,如需转载请自行联系原作者
目录
打赏
0
0
0
0
69
分享
相关文章
|
10月前
|
Perl 教程 之 Perl 面向对象 5
Perl的面向对象编程涉及匿名哈希表或数组来存储对象属性。类通过`@ISA`数组实现继承,如Employee继承Person。在Employee.pm中声明`@ISA = qw(Person)`。在main.pl中,创建Employee对象并调用方法,显示继承功能。程序输出显示姓名的变化。
86 0
|
10月前
|
Perl 教程 之 Perl 面向对象 6
Perl 面向对象编程有两种实现:匿名哈希表和数组方式。教程中展示了基于哈希表的继承示例,Employee 类继承并重写了 Person 类的方法。在Employee中,`new`构造函数被重写,添加了新属性,`getFirstName`被重写,还新增了`setLastName`和`getLastName`方法。在主程序中,创建Employee对象并调用这些方法,显示了方法重写和辅助函数的使用效果。
60 3
|
10月前
|
Perl 教程 之 Perl 面向对象 3
Perl的面向对象编程涉及两种实现:匿名哈希表引用和数组引用。对象是类(Perl包)中数据项的引用,方法是接收类名或对象作首参的子程序。
56 3
|
10月前
|
Perl 教程 之 Perl 面向对象 1
Perl的面向对象编程涉及两种实现:使用匿名哈希表存储对象属性的引用,或使用数组为每个属性创建行索引。对象是类的实例,类是包含方法的Perl包。方法是接受对象或类名作为首参的子程序。`bless()`函数用于构建对象,将引用与类关联。
44 3
|
10月前
|
Perl 教程 之 Perl 面向对象 4
Perl的面向对象涉及两种对象实现:匿名哈希表和数组。对象是类的实例,类是包含方法的Perl包。方法是接收对象引用作为首参的子程序。`bless()`函数用于构造对象。以下是一个Person类的例子,包含`new`构造器、`getFirstName`和`setFirstName`方法。在`employee.pl`脚本中,创建Person对象并演示了方法的使用。输出显示了姓名的设置和获取过程。
55 2
|
10月前
|
Perl 教程 之 Perl 面向对象 8
Perl面向对象教程展示了两种实现:通过匿名哈希表或数组存储对象属性。示例中,`MyClass`与子类`MySubClass`被定义,后者继承并扩展了父类方法。在主程序中,创建并调用了对象,演示了构造、方法调用、继承及自动调用析构函数的过程。
69 1
|
10月前
|
Perl 教程 之 Perl 面向对象 7
在Perl OOP中,对象基于匿名哈希或数组实现,存储实例属性。当调用不存在的方法时,Perl查找AUTOLOAD来动态处理。析构函数DESTROY在对象销毁时自动调用,允许执行清理操作。不能修改传递给DESTROY的只读引用,但可写入对象本身。析构器可调用基类或其他类的DESTROY,但通常不手动调用。对象释放时,其所含对象也会自动销毁。
55 1
|
10月前
|
Perl 教程 之 Perl 面向对象 2
Perl的面向对象编程涉及两种实现:匿名哈希表引用和数组引用。对象是类数据的引用,类是包含方法的Perl包。方法是接收类名作为首参的子程序。`bless()`函数用于构造对象。类定义为包,提供独立命名空间,文件通常以`.pm`结尾。例如: ```markdown .package Person # 类代码... .end ``` 简而言之,Perl的OOP基于引用,类是包,方法是子程序,`bless`构造对象,类定义创建命名空间。
50 2
一文了解Perl语言
我在公众号发过很多编程语言的学习笔记,但是一直没有发Perl语言的编程教程。我大学的时候,学过一段时间的Perl语言,所以和Perl也有点缘分。这次去北京参加培训时发现他们教的Perl,所以接着机会发一波我现场的学习记录。
1622 0
AI助理

你好,我是AI助理

可以解答问题、推荐解决方案等