好用的Perl包 Class::Ref

包的链接 https://metacpan.org/pod/Class::Ref

网页上介绍是 Class::Ref - Automatic OO wrapping of container references
就是将一个哈希、数组引用到一个 package 中来使用。

下面给出一个例子：

#!/usr/bin/perluse FindBin qw($RealBin);
use lib "$RealBin/lib";
use lib "$RealBin";use Class::Ref;# example 1
### creat a hash
$test = { foo => { bar => 'Hello World!' } };$obj = Class::Ref->new($test);
print $obj->foo->bar . "\n";    # returns "Hello World!"
$obj->baz({ blah => 123 });
print $obj->baz->blah . "\n";    # returns 123#example 2
$group1 = { foo => { bar => 'group1 Hello World!' } };$group2 = { server => { ip => '192.168.32.1',dc => 'eqdc10', } };$list = { %{$group1}, %{$group2} };
$obj = Class::Ref->new($list);
print $obj->foo->bar . "\n";
print $obj->server->ip . "\n";
print $obj->{server}{dc} . "\n";   # example 3
$obj = Class::Ref->new({ foo => [{ bar => 'Hello Again!' }] });
print $obj->foo->[0]->bar . "\n";    # returns "Hello Again!"

运行结果如下所示：

再列举一个使用的例子，我们要做一个 Foo.pm 的包，可以使用 Class::Ref 来制作这个类的属性值, 通过引用绑定外部的哈希或者数组，具体使用见下面的代码，给出了详细的代码。

package Foo;use Carp;
use Class::Ref;use strict;
use vars qw($VERSION $Debug);######################################################################
#### Configuration Section$VERSION = '3.426';######################################################################
###sub new {@_ >= 1 or croak 'usage: Foo->new ({options})';my ($class, $ARGS) = (@_);my $self = bless {}, $class;my $obj = Class::Ref->new($ARGS);$self->{REF} = $obj;return ($self);}sub test {my $self = shift;# print $self->{REF}->{'foo'}{'bar'} . "\n";# print $self->{REF}->foo->bar . "\n";
} # Dump
1;

测试使用代码如下：

#!/usr/bin/perluse FindBin qw($RealBin);
use lib "$RealBin/lib";
use lib "$RealBin";use Foo;###$group1 = { foo => { bar => 'group1 Hello World!' } };$group2 = { server => { ip => '192.168.32.1',dc => 'eqdc10', } };$obj = Foo->new( { %{$group1}, %{$group2} } );
$obj->run;

好用的Perl包 Class::Ref相关推荐

Net::SSH::Perl 包与 Net::OpenSSH 包的性能对比代码
Net::SSH::Perl 包 test 代码: use strict; use Net::SSH::Perl; use Class::Std::Utils; use Encode; use POS ...
perl 包下载官方网站（速度很快的）和解压安装指令
https://metacpan.org/ 输入你要搜索的包下载后放入目录下进行 tar -zxf XXXX.tar.gz cd XXXX perl Makefile.PL make mak ...
shell 脚本批量安装perl包
dir是指定安装包的目录 #! /bin/bash #filelist=`ls -l|awk {'print $9'}` dir=/wls/oracle/testShellInstallperl/pa ...
Perl面向对象(2)：对象
本系列: Perl面向对象(1):从代码复用开始 Perl面向对象(2):对象 Perl面向对象(3):解构--对象销毁第3篇依赖于第2篇,第2篇依赖于1篇. 已有的代码结构现在有父类Animal ...
php 调用 perl,perl中如何调用R语言
以下是从网上收集的从perl中调用R的方法: 1 直接用system()命令比如有个test.R程序,可以通过下面的方式调用: system("R 2 安装模块RSperl 该模块的具体介 ...
第十三章 Perl的面向对象编程
第十三章 Perl的面向对象编程 by flamephoenix 一.模块简介二.Perl中的类三.创建类四.构造函数实例变量五.方法六.方法的输出七.方法的调用八.重载九.析构函数 ...
php中perl配置,Windows下 Apache、PHP和Perl的安装配置
在安装AWStats7.0和 JAWStats之前需要配置其环境,而运行AWStats需要perl支持,运行JAWStats需要PHP支持,这篇文章将具体介绍其环境的安装配置. 环境 Windows ...
perl 安装html,centos perl 安装HTML-Parser时报错
新装了centos7,安装perl模块时,发现系统自带的perl很多基础的包都没安装(是基础perl的阉割版本,甚至失去了很多重要的基础包 http://www.perlmonks.org/?node ...
Linux Perl安装
[perl概述] Perl 是 Practical Extraction and Report Language 的首字母缩写,为 "实用报表提取语言".Perl 是一种高级.通用 ...

好用的Perl包 Class::Ref

好用的Perl包 Class::Ref相关推荐

最新文章

热门文章