perl 中位值 二維雜湊 陣列的雜湊 排序 取整

use list::util qw(sum);

use posix;
sub median @_ )[int($#_/2), ceil($#_/2)])/2;
}my @a = qw/ 1 2 3 4/;
my $med = median(@a); #就可以得到陣列@a的中位值為2.5

#構造二維雜湊

my %hash;
foreach my $i (1..10) = $i + $j;
}}#訪問foreach my $k1 (keys %hash) }) \n";
}}

#定義乙個陣列的雜湊（跟定義一般雜湊一樣）

my %hash;
#給陣列的雜湊賦值
$hash = [1, 2, 3]; #用來強調鍵值a指代的是乙個陣列
#往陣列的雜湊中新增元素100和101
push @}, 100, 101;

my %hash = (

'b' => 1,
'a' => 2,
2 => 3,
);foreach my $k (sort cmp $hash} keys %hash) \n";
}

use posix;

#四捨五入
my $a = 3.454;
sprintf "%0.2f", $a;
#向上取整
ceil()
#向下取整
int()/floor()

perl 二維陣列

perl沒有真正的二維陣列，所謂的二維陣列其實是把一維陣列以引用的方式放到另外乙個一維陣列。二維陣列定義 my array1 1,2 3,4 45,9 66,5 使用表示匿名陣列 或者 my array2 qw this is a array my array3 another array my a...

Perl 二維陣列

7 切片 此處引用相當於c中的指標。二維陣列第一列不儲存具體元素而是儲存指向該行一維陣列的引用。my aoa fred barney pebbles bambam dino george jane elroy judy homer bart marge maggie ref to aoa fred ...

perl二維陣列

出處 7 切片 此處引用相當於c中的指標。二維陣列第一列不儲存具體元素而是儲存指向該行一維陣列的引用。my aoa fred barney pebbles bambam dino george jane elroy judy homer bart marge maggie ref to aoa fr...