Chinaunix首页 | 论坛 | 博客
  • 博客访问: 855351
  • 博文数量: 253
  • 博客积分: 6891
  • 博客等级: 准将
  • 技术积分: 2502
  • 用 户 组: 普通用户
  • 注册时间: 2010-11-03 11:01
文章分类

全部博文(253)

文章存档

2016年(4)

2013年(3)

2012年(32)

2011年(184)

2010年(30)

分类: Python/Ruby

2011-10-25 15:55:03

创建引用。
方法1:
$reference_array = \@array_name; #保存指向array的引用
$reference_hash = \%hash_name; #保存指向hash的引用
$reference_sub = \&sub_name; #保存指向函数的引用
现在这些引用都是变量的形式,就可以像用普通变量一样对它们进行赋值等操作:
$ref2 = $reference_hash;

方法2:
当我们没有array, hash, sub name时,可以以匿名的形式创建它们的引用。
$reference_array = [1,2,3,4];#保存指向array的引用
$reference_hash = {'test1'=>1,'test2'=>2}; #保存指向hash的引用

call reference:
方法1:用{$reference_name} 替代原来数组或哈希的名字。
@{$reference_array}; #同@array_name;
%{$reference_hash}; #同%hash_name;
  1. @array = (1,3,4,5,7);
  2. %hash = (“one" => 1 "two"=>2, "three"=>3);
  3. $aref = \@array;
  4. $element = @{$aref}[2]; #得到第二个元素
  5. @{$aref}[2] = 9; #给第二个元素赋值。

  6. $href = \%hash;
  7. $one = ${$href}{"one"} #get value
  8. keys %{$href}; get keys;
  9. push @{$href}{"many"}, 5; #add key value patterns to hash.
方法2:->
  1. my @a = ([1,2,3,4], [7,5], 9);
  2. print $a[1]->[1]; # get 5







阅读(1082) | 评论(1) | 转发(0) |
0

上一篇:use Storable

下一篇:tcp socket 简单通话

给主人留下些什么吧!~~

GFree_Wind2011-10-26 12:09:59

原来是Perl。。。。期望楼主,能够标注一下是什么语言的。