摘要：
[root@yun1 test]# cat a1.pl my $h={'192.168.11.187'=>['root','1234567'], '192.168.5.7' =>['root','cdsxxxkfdsfsdf'], '192.168.5.3'=>['roo... 阅读全文
摘要：
高效的属性存储:我们一向使用散列表来存储对象属性,我们这样做有几个好的理由:1.每个属性都是自我描述的(也就是说,每个属性的名字和类型可以很容易的从对象中获取),这样可以很容易的来编写可读性好的代码。它还可以使模块无需对象显示合作就能够进行自动的对象持续性存储或对象的可视化。2.位于继承层次中的... 阅读全文
摘要：
centos6.5:/root/podinns/lib#cat t1.pl use LWP::UserAgent;use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping; use Socket;use Net... 阅读全文
摘要：
唯一标识:很明显,一个%employee 是不够的,每个雇员都要求有一个唯一标识和他或她自己的属性集合。你可以动态的分配这个数据结构,也可以返回一个指向局部数据结构的引用Vsftp:/root/perl/18# cat a1.pl use Data::Dumper; sub new_emp... 阅读全文
摘要：
centos6.5:/root/podinns/lib#cat First.pm package First;use base qw(Second);sub new { my $self = {}; my $invocant = shift; my $class =... 阅读全文
摘要：
Vsftp:/root/perl/7# cat scan1.pm package scan1; require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw(fun1 frobnicate); ###导出fun1函数 s... 阅读全文
摘要：
Vsftp:/root/perl/17# cat Critter.pm package Critter; sub new { my $self = {}; my $invocant = shift; my $class = ref($invocant) || $i... 阅读全文
摘要：
我们在设置数据库自动备份时，为了数据的安全往往需要直接将数据备份到远程服务器上。在Linux可以通过NFS挂载来实现，在Windows平台可以直接通过net use+subst来实现将远程服务器的目录挂载为本地磁盘进行读写操作。机器A：172.168.6.132 备份服务器。机器B：172.16... 阅读全文
摘要：
perl 允许你将代码划分成一个或多个可重用的模块1.使用关键字package 来定义模块2.使用use和require 来加载预定义模块3.使用"::" 记号来存取包的特定变量和子例程包的基本知识:关键词 package 标示着一个新的名字空间的开始,在它之后声明的所有的全局标识符（包括变量名... 阅读全文
摘要：
{ "message" => "scan test 20161201", "@version" => "1", "@timestamp" => "2016-12-01T05:17:39.018Z", "path" => "/data01/gw/gw-... 阅读全文