作者oktryit (:))
标题[转录][课後补充] anonymous array/hash
时间Sat Aug 14 15:21:45 2004
*** 转录於 中大数学系 吴维汉 教授的文章 ***
作者: weihan (天天天蓝) 站内: Math_Perl
标题: anonymous array/hash
时间: Fri May 28 20:01:04 2004
有时阵列名称或者是 hash 的名称在 reference 的运作下都可以省略
例如 :
(1) anonymous array (匿名阵列)
@a = ( 2 , 3 , 6 ) ;
$b = \@a ;
阵列 a 可以透过 reference b 来读取或更改其元素, 而且完全不须要
使用到 a
例如 :
$b->[2] 相当於 $a[2]
@$b 相当於 @a
如此一来 我们就乾脆不定义阵列的名称 而使用
$b = [ 2 , 3 , 6 ] ; # 注意这里的元素是用 [ ] 包住
print "@$b" ; # 列印阵列
print $b->[0] ; # 列印阵列的首位元素
(2) anonymous hash
同样的 hash 的名字也可以省略
$b = { Jones => 14 , Tom => 12 , Mary => 10 } ; # 注意这里用 { } 包住
# 列印 hash
foreach $k ( keys %$b ) {
print $k , " : " , $b->{$k} , "\n" ;
}
NOTE :
(a) 多维阵列
使用匿名阵列可以用来模拟多维阵列
@foo = ( [1,2] , [3,4] , [5,6] ) ;
则
$foo[0] 为一个 reference 到 [1,2]
因此
$foo[0]->[0] = 1 , $foo[0]->[1] = 2
在两个 [] 之间的 -> 可以省略,
$foo[0][0] = 1 , $foo[0][1] = 2
同理,
$foo[1] 为一个 reference 到 [3,4]
$foo[1][0] = 3 , $foo[1][1] = 4
如果要将 @foo 所有的元素印出
print "@{$_}\n" for @foo ; # 这里的每个 $_ 都是指向匿名阵列的 reference
印出 :
1 2
3 4
5 6
三维阵列也是一样
@bar = ( [ [1,2] , [3,4] ] , [ [5,6] , [7,8] ] ) ;
bar 为 2 X 2 X 2 的阵列
因此
$bar[0] = [ [1,2] , [3,4] ]
$bar[0]->[1] = [3,4]
$bar[0]->[1]->[0] = 3
同样的可以将 [] 之间的 -> 省略得到 $bar[0][1][0] = 3
foreach $a ( @bar ) {
print "@{$_} " for @$a ;
print "\n" ;
}
印成 :
1 2 3 4
5 6 7 8
(6) 阵列与 hash 合并使用
@foo = ( {Tom=>13,John=>3} , {Mary=>5,Jane=>7} ) ;
则
$foo[0] 为 {Tom=>13,John=>3} 的 reference
$foo[1] 为 {Mary=>5,Jane=>7} 的 reference
$foo[0]->{Tom} 之值为 13
以上也可以将 -> 省略而成
$foo[0]{Tom} = 13
以下列印所有的 hash
for $a ( @foo ) {
print "$_ : $a->{$_} " for keys %$a ;
print "\n" ;
}
输出 :
Tom : 13 John : 3
Mary : 5 Jane : 7
--
===================================================================
* 人生的意义 ： 尽责任 负责任 *
* 人生的目的 ： 受报 还愿 行善 *
* 人生的价值 ： 奉献 付出 *
================================================== 圣严法师 语 ===
--
※发信站 [
中央数学 织梦天堂 bbs.math.ncu.edu.tw]
‧
FROM [
ziyou2.math.ncu.edu.tw]
□ Modify: 04/05/29 16:17:04 □ From: ziyou2.math.ncu.edu.tw
□ Modify: 04/05/29 16:17:24 □ From: ziyou2.math.ncu.edu.tw
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.207.58
※ 编辑: oktryit 来自: 140.115.207.58 (08/14 15:22)
※ 编辑: oktryit 来自: 140.115.207.58 (08/14 15:22)
※ 编辑: oktryit 来自: 140.115.207.58 (08/14 15:24)