Perl与JS的对比分析(数组、哈希)

 更新时间:2016年07月28日 10:15:17   投稿:jingxian  
下面小编就为大家带来一篇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里没有原生支持,需自行实现。

以上这篇Perl与JS的对比分析(数组、哈希)就是小编分享给大家的全部内容了,希望能给大家一个参考,也希望大家多多支持脚本之家。

相关文章

  • Perl中捕获警告信息、异常信息并写入日志详解

    Perl中捕获警告信息、异常信息并写入日志详解

    这篇文章主要介绍了Perl中捕获警告信息、异常信息并写入日志详解,本文分别给出了捕获警告--不处理、捕获警告--并转换成异常、捕获警告--并写入日志、捕获并写日志的完整例子等实用实例,需要的朋友可以参考下
    2015-06-06
  • Perl实现的Linux下socket代理服务器

    Perl实现的Linux下socket代理服务器

    这篇文章主要介绍了Perl实现的Linux下socket代理服务器,比较简洁的一个版本,需要的朋友可以参考下
    2014-08-08
  • perl 采集入库脚本分享

    perl 采集入库脚本分享

    这篇文章主要介绍了perl 采集入库脚本分享,本文是以前自己用的脚本,使用的Mysql数据库,需要的朋友可以参考下
    2014-09-09
  • Perl使用Tesseract-OCR实现验证码识别教程

    Perl使用Tesseract-OCR实现验证码识别教程

    这篇文章主要介绍了Perl使用Tesseract-OCR实现验证码识别教程,Tesseract-OCR是一个开源图形识别引擎,需要的朋友可以参考下
    2014-06-06
  • perl常量、多维数组及变量的初始化的实例代码

    perl常量、多维数组及变量的初始化的实例代码

    perl常量、多维数组及变量的初始化的例子,供大家学习参考
    2013-02-02
  • perl的POD权限问题处理

    perl的POD权限问题处理

    今天我们继续查找mod_perl对req_header的处理,有需要的朋友建议参考学习之
    2013-02-02
  • perl查找进程PID的例子

    perl查找进程PID的例子

    这篇文章主要介绍了perl查找进程PID的例子,例子中主要通过/proc目录进行PID的查找,需要的朋友可以参考下
    2014-06-06
  • Perl5 OOP学习笔记

    Perl5 OOP学习笔记

    在Perl排名持续下降的情况下学Perl,似乎是有点不明智。但是,工作需要,不得不学啊。再说,Perl现在在测试领域还是用得非常多的。Phython虽然也在测试领域开始活跃起来,不过我始终还是不太喜欢Phython的语法。
    2009-04-04
  • perl中的范围声明our-my-local介绍

    perl中的范围声明our-my-local介绍

    这篇文章主要介绍了perl中的范围声明our-my-local介绍,这3个关键字都是控制变量范围的,需要的朋友可以参考下
    2015-02-02
  • Perl学习笔记之CPAN使用介绍

    Perl学习笔记之CPAN使用介绍

    这篇文章主要介绍了Perl学习笔记之CPAN使用介绍,本文讲解了什么是CPAN、CPAN的目录作用介绍、CPAN安装Perl Module的两种方法等内容,需要的朋友可以参考下
    2015-06-06

最新评论