[問題] 再問一個求array個數的語法問題

[windincloud (當你孤單會想起誰)]

今天因設計需求
因此會產生下面的程式

my %data;
my %segment = (
                size => 0,
                length => 0,
              );
my @array = ();

push @array, {%segment};
$data{"test"} = [@array];

我想印出$data{"test"} array個數時 語法該如何寫?

再來順便問一下
若我想對 $data{"test"} 做push的動作

除了 用下面這樣迂迴的方式外還有沒有其他寫法?

$ptr = $data{"test"};
push @$ptr, {%segment};


有試用
push $data{"test"}, {%segment};
但是會跳出說$data{"test"}並非@array 參數錯誤

希望有哪位強者能幫忙解惑一下
感謝

--

一直在試array塞入hash,hash繼續塞入array這樣的複雜寫法~ XDD

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.109.183.106
推 abliou:1. print $#{$data{test}};
推 abliou:push @{$data{"test"}}, {%segment};
→ audreytang:print 0+@{$data{test}};