Perl與JS的比較（數組、哈希）

上一篇列出了Perl中定義數組，對象的方式與JS的異同。這里繼續補充數組，哈希的相關操作。

 

一、數組

可以對數組進行增刪，插入。與JS不同的是這些函數都是全局的，JS則是掛在Array.prototype上。

1，對數組尾部的操作pop（刪除最后的元素）、push（在尾部添加）

@goods = qw/pen pencil/;
pop(@goods); # @goods 變成 (pen)
push(@goods, 'brush'); # @goods 變為 (pen, brush)

在Perl中，函數調用時小括號是可選的（視上下文而定），就象前面使用的print。以下是等價的

pop @goods; # @goods 變成 pen
push @goods, 'brush'; # @goods 變為 (pen, brush)

2，對數組首部的操作shift（刪除第一個元素）、unshift（在首部添加元素）

3，任意位置刪除或插入splice

4，逆序數組，Perl有reverse函數，JS沒有對應函數。

5，排序數組sort，Perl和JS都有。

2，3，4，5提到的函數不貼演示代碼了。

 

6，JS使用length屬性獲取數組長度，Perl不同，有3種方式獲取

@goods = qw/pen pencil/;

# 將數組變量賦值給一個標量變量
$len = @goods;

# 使用scalar函數
$len = scalar(@goods);

# 最后一個元素的索引加1
$len = $#goods + 1;

 

7，遍歷數組，Perl用foreach函數

@goods = qw/pen pencil brush/;

# 默認的$_
foreach (@goods) {
  print "$_"."\n";
}

# 自定義變量
foreach $item (@goods) {
  print "$item"."\n";
}

ES5可以用forEach

['pen', 'pencil', 'brush'].forEach(function(item) {
    console.log(item)
})

 

二、哈希

1，獲取keys和values

%person = (
  name => 'Jack',
  age  => 30,
);
@k = keys %person; # (name, age)
@v = values $person; # ('Jack', 30)

ES5有Object.keys，但沒有Object.values

person = {
  name: 'Jack',
  age: 30
}
Object.keys(person) // ['name', 'age']

 

2，獲取鍵值對(key-value)數量（對Perl來說很容易）

%person = (
  name => 'Jack',
  age  => 30,
);
$len = keys %person; # 2

對於JS來說，可能需要for in整個對象

function getObjLen(obj) {
    var len = 0
    for (var a in obj) {
        if (obj.hasOwnProperty(a)) 
        len++
    }
    return len
}

var person = {
    name: 'Jack',
    age: 30
}
getObjLen(person) // 2

 

3，遍歷對象

Perl有兩種方式，一種while+each，一種獲取keys再foreach。

%person = (
  name => 'Jack',
  age  => 30,
);

# 方式1
while ( ($k, $v) = each %person ) {
  print "$k: $v"."\n";
}

# 方式2
@keys = keys %person;
foreach(@keys) {
  print "$_: ".$person{$_}."\n";
}

JS一個for in即可。

 

4，判斷某個key是否存在，Perl用exists函數

%person = (
  name => 'Jack',
  age  => 30,
);
if (exists $person{ndame}) {
  print 'yes';
} else {
  print 'no';
}

JS用in運算符。

 

5，刪除key，都用delete，但Perl是函數，JS是運算符

%person = (
  name => 'Jack',
  age  => 30,
);
delete $person{'name'}; 

 

三、數組與哈希互換

Perl里哈希很容易就被轉成數組

%person = (
  name => 'Jack',
  age  => 30,
);
@arr = %person; # 將哈希轉成數組 變成了('name', 'Jack', 'age', 30)

數組轉成哈希

@nums = qw/zero 0 one 1 two 2/;
%hash = @nums;
while( ($k, $v) = each %hash ) {
  print "$k: $v\n";
}

打印如下

 

以上互換JS里沒有原生支持，需自行實現。