Perl與JS的對比分析(數(shù)組、哈希)
上一篇列出了Perl中定義數(shù)組，對象的方式與JS的異同。這里繼續(xù)補充數(shù)組，哈希的相關(guān)操作。
一、數(shù)組
可以對數(shù)組進行增刪，插入。與JS不同的是這些函數(shù)都是全局的，JS則是掛在Array.prototype上。
1，對數(shù)組尾部的操作pop（刪除最后的元素）、push（在尾部添加）
@goods = qw/pen pencil/; pop(@goods); # @goods 變成 (pen) push(@goods, 'brush'); # @goods 變?yōu)?(pen, brush)
在Perl中，函數(shù)調(diào)用時小括號是可選的（視上下文而定），就象前面使用的print。以下是等價的
pop @goods; # @goods 變成 pen push @goods, 'brush'; # @goods 變?yōu)?(pen, brush)
2，對數(shù)組首部的操作shift（刪除第一個元素）、unshift（在首部添加元素）
3，任意位置刪除或插入splice
4，逆序數(shù)組，Perl有reverse函數(shù)，JS沒有對應(yīng)函數(shù)。
5，排序數(shù)組sort，Perl和JS都有。
2，3，4，5提到的函數(shù)不貼演示代碼了。
6，JS使用length屬性獲取數(shù)組長度，Perl不同，有3種方式獲取
@goods = qw/pen pencil/; # 將數(shù)組變量賦值給一個標量變量 $len = @goods; # 使用scalar函數(shù) $len = scalar(@goods); # 最后一個元素的索引加1 $len = $#goods + 1;
7，遍歷數(shù)組，Perl用foreach函數(shù)
@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)數(shù)量（對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函數(shù)
%person = (
name => 'Jack',
age => 30,
);
if (exists $person{ndame}) {
print 'yes';
} else {
print 'no';
}
JS用in運算符。
5，刪除key，都用delete，但Perl是函數(shù)，JS是運算符
%person = (
name => 'Jack',
age => 30,
);
delete $person{'name'};
三、數(shù)組與哈?；Q
Perl里哈希很容易就被轉(zhuǎn)成數(shù)組
%person = (
name => 'Jack',
age => 30,
);
@arr = %person; # 將哈希轉(zhuǎn)成數(shù)組 變成了('name', 'Jack', 'age', 30)
數(shù)組轉(zhuǎn)成哈希
@nums = qw/zero 0 one 1 two 2/;
%hash = @nums;
while( ($k, $v) = each %hash ) {
print "$k: $v\n";
}
打印如下
以上互換JS里沒有原生支持，需自行實現(xiàn)。
以上這篇Perl與JS的對比分析(數(shù)組、哈希)就是小編分享給大家的全部內(nèi)容了，希望能給大家一個參考，也希望大家多多支持腳本之家。
相關(guān)文章
這篇文章主要介紹了Perl中捕獲警告信息、異常信息并寫入日志詳解,本文分別給出了捕獲警告--不處理、捕獲警告--并轉(zhuǎn)換成異常、捕獲警告--并寫入日志、捕獲并寫日志的完整例子等實用實例,需要的朋友可以參考下2015-06-06
Perl實現(xiàn)的Linux下socket代理服務(wù)器
這篇文章主要介紹了Perl實現(xiàn)的Linux下socket代理服務(wù)器,比較簡潔的一個版本,需要的朋友可以參考下2014-08-08
這篇文章主要介紹了perl 采集入庫腳本分享,本文是以前自己用的腳本,使用的Mysql數(shù)據(jù)庫,需要的朋友可以參考下2014-09-09
Perl使用Tesseract-OCR實現(xiàn)驗證碼識別教程
這篇文章主要介紹了Perl使用Tesseract-OCR實現(xiàn)驗證碼識別教程,Tesseract-OCR是一個開源圖形識別引擎,需要的朋友可以參考下2014-06-06
perl常量、多維數(shù)組及變量的初始化的例子，供大家學習參考2013-02-02
今天我們繼續(xù)查找mod_perl對req_header的處理，有需要的朋友建議參考學習之2013-02-02
這篇文章主要介紹了perl查找進程PID的例子,例子中主要通過/proc目錄進行PID的查找,需要的朋友可以參考下2014-06-06
在Perl排名持續(xù)下降的情況下學Perl，似乎是有點不明智。但是，工作需要，不得不學啊。再說，Perl現(xiàn)在在測試領(lǐng)域還是用得非常多的。Phython雖然也在測試領(lǐng)域開始活躍起來，不過我始終還是不太喜歡Phython的語法。2009-04-04
這篇文章主要介紹了perl中的范圍聲明our-my-local介紹,這3個關(guān)鍵字都是控制變量范圍的,需要的朋友可以參考下2015-02-02
這篇文章主要介紹了Perl學習筆記之CPAN使用介紹,本文講解了什么是CPAN、CPAN的目錄作用介紹、CPAN安裝Perl Module的兩種方法等內(nèi)容,需要的朋友可以參考下2015-06-06