Fork me on GitHub
Perl与JS的比较（数组、哈希）

上一篇列出了Perl中定义数组，对象的方式与JS的异同。这里继续补充数组，哈希的相关操作。

 

一、数组

可以对数组进行增删，插入。与JS不同的是这些函数都是全局的，JS则是挂在Array.prototype上。

1，对数组尾部的操作pop（删除最后的元素）、push（在尾部添加）

?
1
2
3
@goods = qw/pen pencil/;
pop(@goods); # @goods 变成 (pen)
push(@goods, 'brush'); # @goods 变为 (pen, brush)

在Perl中，函数调用时小括号是可选的（视上下文而定），就象前面使用的print。以下是等价的

?
1
2
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种方式获取

?
1
2
3
4
5
6
7
8
9
10
@goods = qw/pen pencil/;
 
# 将数组变量赋值给一个标量变量
$len = @goods;
 
# 使用scalar函数
$len = scalar(@goods);
 
# 最后一个元素的索引加1
$len = $#goods + 1;

 

7，遍历数组，Perl用foreach函数

?
1
2
3
4
5
6
7
8
9
10
11
@goods = qw/pen pencil brush/;
 
# 默认的$_
foreach (@goods) {
  print "$_"."\n";
}
 
# 自定义变量
foreach $item (@goods) {
  print "$item"."\n";
}

ES5可以用forEach

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

 

二、哈希

1，获取keys和values

?
1
2
3
4
5
6
%person = (
  name => 'Jack',
  age  => 30,
);
@k = keys %person; # (name, age)
@v = values $person; # ('Jack', 30)

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

?
1
2
3
4
5
person = {
  name: 'Jack',
  age: 30
}
Object.keys(person) // ['name', 'age']

 

2，获取键值对(key-value)数量（对Perl来说很容易）

?
1
2
3
4
5
%person = (
  name => 'Jack',
  age  => 30,
);
$len = keys %person; # 2

对于JS来说，可能需要for in整个对象

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
%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函数

?
1
2
3
4
5
6
7
8
9
%person = (
  name => 'Jack',
  age  => 30,
);
if (exists $person{ndame}) {
  print 'yes';
} else {
  print 'no';
}

JS用in运算符。

 

5，删除key，都用delete，但Perl是函数，JS是运算符

?
1
2
3
4
5
%person = (
  name => 'Jack',
  age  => 30,
);
delete $person{'name'};

 

三、数组与哈希互换

Perl里哈希很容易就被转成数组

?
1
2
3
4
5
%person = (
  name => 'Jack',
  age  => 30,
);
@arr = %person; # 将哈希转成数组 变成了('name', 'Jack', 'age', 30)

数组转成哈希

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

打印如下

 

以上互换JS里没有原生支持，需自行实现。

 
分类: perl

perl

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 @goo阅读全文

posted @ 2012-11-03 07:38 snandy 阅读(137) | 评论 (0) 编辑

Perl与JS的比较（变量）
摘要: 变量具有 六个属性， Perl将变量分成了标量，数组，哈希。分别以不同的前缀表示。$ 表示标量变量@ 表示数组变量% 表示哈希（对象）变量$, @, %后标示符要求同JS，由字符串，数字，下划线组成，不能以数字开头。一、标量变量$str = 'Hello, world!';$length = 10;JS中一般用var声明，不使用var的默认是全局变量。这里Perl的$str, $length也是全局变量（Perl可以使用my关键字定义私有变量）。var str = 'Hello, world!';var length = 10;二、数组变量列表是标量的有序集合，阅读全文

posted @ 2012-11-02 12:17 snandy 阅读(103) | 评论 (0) 编辑

Perl与JS的比较（基本数据类型）
摘要: 一、数字和JS一样，用双精度浮点数（double-precision floating-point）表示。不同于JS的如下1，整数直接量中可以插入下划线，看起来比较清楚，如 11222333 等同于 11_222_333if (11222333 == 11_222_333) { print 'true';} else { print 'false';}运行后将打印出true。2，Perl除了支持十进制、八进制、十六进制还支持二进制，JS不支持二进制数字表示法。Perl中二进制以0b开头，如0b1110等价于十进制的14。print 0b1110;运行后将打印出1阅读全文

posted @ 2012-11-02 10:18 snandy 阅读(90) | 评论 (0) 编辑

Perl入门
摘要: 入门就是能写出一个HelloWorld，前提自然需要先安装语言环境。一、获取安装1，来这里下载Perl，按操作系统选下载版本。Unix/Linux/Mac OSX 自带了Perl环境。一般来说系统自带的版本会低于官网下载的，如我所在公司的Linux上Perl版本为5.8.8。想使用最新的仍然需要下载重新安装。我下载的是5.16.1，系统是Windows 7。2，双击下载文件，下一步下一步就哦了。3，打开命令行，输入perl -v，出现以下输出说明安装成功了二、编写Perl程序1，新建一个文件（任意后缀）first.pl，任意编辑器输入内容如下print "Hello, world!\阅读全文

posted @ 2012-11-01 18:18 snandy 阅读(91) | 评论 (0) 编辑

posted on 2012-11-03 10:03  HackerVirus  阅读(294)  评论(0)    收藏  举报
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3