作者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)