perl 数据结构
perl 数据结构
优惠券已抵扣
余额抵扣
还需支付
¥39.90
¥99.00
购买须知?
本专栏为图文内容,最终完结不会低于15篇文章。
订阅专栏,享有专栏所有文章阅读权限。
本专栏为虚拟商品,基于网络商品和虚拟商品的性质和特征,专栏一经购买无正当理由不予退款,不支持升级,敬请谅解。
scan724
这个作者很懒,什么都没留下…
展开
-
第9章 数据结构
9.1.1 创建和访问一个两维数组[root@wx03 4]# cat a1.pl @Aoa = (["fred", "barney" ],["george", "jane", "elroy" ],["homer", "marge", "bart" ],);print $Aoa[0]->[1];print "\n";[root@wx03 4]# perl a1.pl barn原创 2016-05-16 22:47:46 · 295 阅读 · 0 评论 -
第十二章 对象(上)
第十二章 对象(上)对象是一个数据结构, 带有一些行为。我们通常把这些行为成为对象的直接动作,类和实例方法 通过第一个参数区分,对于 Perl 而言,方法就是方法,只是由其第一个参数的类型来区分。一个类可以从父类中继承方法,父类也叫基类或者超级类。原则--所有对象的访问都应该只通过方法,12.2 Perl 的对象系统一个对象只不过是一个引用...恩,就是引用。原创 2016-11-25 14:38:23 · 289 阅读 · 0 评论 -
第十一章 模块:
第十一章 模块:传统模块为调用者的输入和使用定义了子过程和 变量。面向对象的模块的运转类似类声明并且是通过方法调用来访问的如果你的模块的名字是 Red::Blue::Green,Perl 就会把它看作Red/Blue/Green.pm。11.2 创建模块我们前面说过,一个模块可以有两个方法把它的接口提供给你的程序使用:符号输出或者允许方法调用面向对象的模块应该不输出任何东原创 2016-11-24 16:02:48 · 312 阅读 · 0 评论 -
Exporter - 实现默认的导入方法用于模块
Exporter - 实现默认的导入方法用于模块简介:In module YourModule.pm: package YourModule; require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw(munge frobnicate); # symbols to export on request 导出的符号V原创 2016-11-24 14:54:46 · 1566 阅读 · 0 评论 -
9.4 散列的散列
9.4 散列的散列 多维的散列是perl里面最灵活的嵌套结构,它就好像绑定一个记录,该记录本身包含其他记录。9.4.1 构成一个散列的散列你可以用下面方法创建一个匿名散列的散列:Vsftp:/root/perl/6# cat a12.pl %HoH = (flintstones => {husband => "fred",pal => "barney",},jetso原创 2016-11-23 14:09:23 · 104 阅读 · 0 评论 -
9.3 散列的数组:
9.3 散列的数组:Vsftp:/root/perl/6# cat a3.pl @AoH = ({husband => "barney",wife => "betty",son => "bamm bamm",},{husband => "george",wife => "jane",son => "elroy",},{husband => "homer",wife原创 2016-11-23 11:45:40 · 129 阅读 · 0 评论 -
perl 监控数据库用到的数据结构
[root@yun1 test]# cat a1.pl my $h={'192.168.11.187'=>['root','1234567'], '192.168.5.7' =>['root','cdsxxxkfdsfsdf'], '192.168.5.3'=>['root','dxxxxxfa']};foreach $key (keys %{$h}) {原创 2016-12-05 13:37:09 · 386 阅读 · 0 评论 -
面向对象下面几步
高效的属性存储:我们一向使用散列表来存储对象属性,我们这样做有几个好的理由:1.每个属性都是自我描述的(也就是说,每个属性的名字和类型可以很容易的从对象中获取),这样可以很容易的来编写可读性好的代码。它还可以使模块无需对象显示合作就能够进行自动的对象持续性存储或对象的可视化。2.位于继承层次中的每个类都可以自由独立的添加属性ObjectTemplate:使用数组来存储属原创 2016-12-05 10:20:40 · 516 阅读 · 0 评论 -
perl 对象
唯一标识:很明显,一个%employee 是不够的,每个雇员都要求有一个唯一标识和他或她自己的属性集合。你可以动态的分配这个数据结构,也可以返回一个指向局部数据结构的引用Vsftp:/root/perl/18# cat a1.pl use Data::Dumper; sub new_employee { my ($name,$age,$starting_positio原创 2016-12-02 16:33:12 · 569 阅读 · 0 评论 -
perl use base 继承
centos6.5:/root/podinns/lib#cat First.pm package First;use base qw(Second);sub new { my $self = {}; my $invocant = shift; my $class = ref($invocant) || $invocant; my ($name)原创 2016-12-02 12:48:24 · 740 阅读 · 0 评论 -
匿名hash
Vsftp:/root/perl/6# cat a9.pl my @a=qw/1 3 5 7 9/;push @b ,{@a};print @b;print "\n";Vsftp:/root/perl/6# perl a9.pl HASH(0x22e0588)原创 2016-11-19 18:07:04 · 508 阅读 · 0 评论 -
[] 和{} 匿名引用
[] 数组引用:Vsftp:/root/perl/6# cat a7.pl use Data::Dumper;my @fields=("aa","bb","cc","dd");$ref=[@fields];print $ref;print "\n";print @{$ref};print "\n";Vsftp:/root/perl/6# perl a7.pl ARRAY(0原创 2016-11-19 17:58:06 · 409 阅读 · 0 评论 -
perl 初始化Hash
Vsftp:/root/perl/6# cat a5.pl use Data::Dumper;my @arr=qw/a bc d /; my %rec=(); for $field (@arr){ $rec{$field} = $field.33; } print %rec; print "\n"; print Dumper(%rec); print原创 2016-11-19 17:31:39 · 4291 阅读 · 0 评论 -
9.2 数组的散列
9.2 数组的散列9.2.1 数组的散列的组成Vsftp:/root/perl/6# cat a1.pl %HoA = (flintstones => [ "fred", "barney" ],jetsons => [ "george", "jane", "elroy" ],simpsons => [ "homer", "marge", "bart" ],);print %H原创 2016-11-19 16:14:18 · 433 阅读 · 0 评论 -
数组的数组
Perl 免费提供许多数据结构,这些数据结构在其他编程语言里是需要你自己制作的。比如那些计算机 科学的新芽们都需要学习的堆栈和队列在 Perl 里都只是数组pop:pop 操作将数组的最后一个元素取出并返回:Vsftp:/root/perl/5# cat a1.pl my @arr=qw/a b c d e f g/;print "\@arr is @arr\n";pop原创 2016-11-19 14:38:12 · 667 阅读 · 0 评论 -
模块
perl 允许你将代码划分成一个或多个可重用的模块1.使用关键字package 来定义模块2.使用use和require 来加载预定义模块3.使用"::" 记号来存取包的特定变量和子例程包的基本知识:关键词 package 标示着一个新的名字空间的开始,在它之后声明的所有的全局标识符(包括变量名,子例程,文件句柄,打印格式和目录句柄)都将属于这个包(package) 例如原创 2016-12-01 17:12:02 · 326 阅读 · 0 评论 -
eval
字符串形式:表达式计算Vsftp:/root/perl/14# cat aa9512Vsftp:/root/perl/14# cat a1.pl open (A,aa);while ($line = ){ chomp $line; $str .=$line; ##将所有的行连接起来 print "\$str is $str\n"; };print "11原创 2016-12-01 13:05:21 · 310 阅读 · 0 评论 -
子例程引用和闭包
1. 调度表(dispatch table) tk图形用户界面工具包my (@frames,@button); my %sub_of = ( "日志查询" => \&push_button2 , "VIEW MEMORY" => \&push_button2 , "VIEW DISK" => \&push_button3 ,原创 2016-12-01 10:01:06 · 372 阅读 · 0 评论 -
<1>数据引用与匿名存储
引用本身就是一种标量变量引用变量,如 $ra 或$rarray ,就是一种普通的标量变量,因为我们使用"$" 符号。变量变量可以是一个整数,一个字符串或者一个引用,而且还可以被重新任意的赋值为这些数据类型中的任一种Vsftp:/root/perl/10# cat a1.pl my $arr="111";my $ref=\$arr;print $ref;print "\n"原创 2016-11-28 14:11:42 · 386 阅读 · 0 评论