设为首页收藏本站

LinuxTone | 运维专家网论坛 - 最棒的Linux运维与开源架构技术交流社区!

 找回密码
 注册

QQ登录

只需一步,快速开始

#公告#抱歉,网站已关闭,不再开放。PC时代已远逝,拥抱云原生时代,拥抱k8s,请移步:https://www.v2k8s.com

学习是一种信仰!分享是一种快乐!能力= 心态 * 沟通 * 知识 (你的每一天需要正能量!)

 网站的发展需要你贡献一份力量!希望你能每天坚持看贴1小时,并回答网友的问题!祝你在浏览论坛的过程中取得进步!谢谢!linuxtone加油!大家加油! 友情提示: 你今天学习了吗?你今天进步了吗?少一点抱怨!多一点进步!Life is short ! Why not linuxtone ?  

网站的发展、感谢每位坛友的努力!

查看: 3620|回复: 2

perl 引用简述 [复制链接]

Rank: 8Rank: 8

签到
273
注册时间
2011-5-3
最后登录
2014-3-20
在线时间
698 小时
阅读权限
90
积分
19482
帖子
119
主题
20
精华
0
UID
13472
发表于 2011-7-9 11:37:56 |显示全部楼层
本文是在 Perl 5 下写作的。引用是Perl支持的一种功能,引用的本质和C的指针类似,都是通过寻址的方式使用各种“量”或者函数,下面回顾一下Perl中引用的使用,很基本和实用的东西,希望刚接触perl的朋友能最快的学会使用引用这种方法。

引用使用‘\’实现,下面以具体简单的例子说明使用方法。

1、标量的引用及使用方法

my $lsb = "lsb_release -a | grep -i fedora";

my $lsb_ref = \$lsb;    #引用本身存放的是一个地址,类型是标量,故以‘$’开头,这里$lsb_ref就是标量$lsb的引用

system("$$val_ref"); #通过‘$$’这样的形式使用该引用指向的标量


2、数组的引用及使用方法

my @small = ('one','two','three'); #数组的定义方式

my $big_ref = ['four','five','six'; #这里是一个匿名数组(无名),$big_ref就是这个匿名数组的引用

my $samll_ref = \@samll;                 #$small_ref为数组small的引用

print "$@small_ref[1]\n";                #这里给出两种数组引用的使用方式

print "$@big_ref->[0]\n";               #‘->’也是使用数组引用的方式



3、哈希(散列)的引用和使用方法

my %hash = ('key1' => 'value1',

                       'key2' => 'value2'

                  );

my $hash_ref = \%hash;


print $hash_ref->{key2};            #hash引用的使用方式

print "$$hash_ref{key1}\n";

4、函数的引用和使用方法

sub print_msg{

        my ($msg) = @_;

        print "MSGmsg\n";

        return();

}

my $print_ref = \&print_msg;


&$print_ref('iugame is ok!');
学问有限,希望对刚接触Perl引用的朋友有所用...



Rank: 3Rank: 3

注册时间
2011-3-5
最后登录
2013-11-9
在线时间
14 小时
阅读权限
30
积分
224
帖子
16
主题
0
精华
0
UID
12260
发表于 2011-8-17 11:25:43 |显示全部楼层
谢谢分享,perl ref

使用道具 举报

Rank: 8Rank: 8

注册时间
2011-6-13
最后登录
2012-11-12
在线时间
437 小时
阅读权限
90
积分
35094
帖子
71
主题
1
精华
0
UID
14312
发表于 2011-8-23 13:36:58 |显示全部楼层
感谢分享

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

IT运维专家网感谢您的支持

合作联系: QQ:67888954/MSN:cnseek@msn.com/mail:netseek@linuxtone.org

Archiver|手机版|感谢所有关心和支持过LinuxTone的朋友们 转载本站内容请注明原作者名及出处 ( 京ICP备08103151 )   |

GMT+8, 2021-3-8 02:55 , Processed in 0.022539 second(s), 14 queries , Apc On.

Powered by Discuz! X2 Licensed

© 2001-2011 Comsenz Inc.

回顶部