Chinaunix首页 | 论坛 | 博客

  • 博客访问: 913648
  • 博文数量: 226
  • 博客积分: 10077
  • 博客等级: 上将
  • 技术积分: 2708
  • 用 户 组: 普通用户
  • 注册时间: 2008-05-25 14:36
文章分类

全部博文(226)

文章存档

2010年(15)

2009年(82)

2008年(129)

我的朋友

分类:

2008-09-05 17:19:18

Perl 虽因其字符串处理能力而闻名,但是这并不意味着 Perl只能做字符串处理。这种语言还提供相当多的函数来处理和操纵其它的数据结构,其中包括很流行的数组和哈希。我们这篇文章展示了一些属于这一类的非 常有用的函数,并简要解释了每个函数的工作方式以及使用它们的时机。

函数 解释 示例
scalar(@arr) 这个函数将一个数组或哈希强迫解释成一个标量。当你需要得到一个数组或哈希的元素个数时,这一函数非常有用。

使用这个函数获取数组或哈希的大小,为循环以及处理数组或哈希内容做准备。
代码:
#!/bin/perl

# define array
@data = ('apple', 'peach', 'banana');

# get size
print "The array has " . scalar(@data) . " elements";

输出:
The array has 3 elements
exists $hash{$key} 这个函数可以用来测试哈希中是否存在某个特定的键。 代码:
#!/bin/perl

# define hash
%data = ('king' => 'queen', 'prince' => 'princess');

# check if key exists
if (exists $data{'king'}) { print "Found!";
}

输出:
Found!
push(@arr, $val) 这个函数向数组的末尾添加一个新元素。 代码:
#!/bin/perl

# define array
@data = ('a', 'b', 'c');

# add element
push(@data, 'd');

输出:
a b c d
pop(@arr) 这个函数从数组的末尾删除一个元素。 代码:
#!/bin/perl

# define array
@data = ('a', 'b', 'c');

# add element
pop(@data);
print "@data ";

输出:
a b
unshift(@arr, $val) 这个函数向数组的开头添加一个新元素。 代码:
#!/bin/perl

# define array
@data = ('a', 'b', 'c');

# add element
unshift(@data, 'z');
print "@data ";

输出:
z a b c
shift(@arr) 这个函数从数组的开头删除一个元素。 代码:
#!/bin/perl

# define array
@data = ('a', 'b', 'c');

# remove element
shift(@data);
print "@data ";

输出:
b c
splice(@arr, $offset, $length, @arr2) 这个函数删除数组中的某一个子集,被删除的子从$offset指定的位置开始,长度为$length个元素。如果可选参数@arr2出现,那么被提取的一段元素将会替换为数组@arr2。

使用这个函数可以提取数组的一个子集,也可以使用新值替换一个数组中的某些元素。
代码:
#!/bin/perl

# define array
@data = ('king', 'queen', 'knight', 'bishop');

# remove middle elements
splice(@data, 1, 2);
print "@data ";

输出:
king bishop
delete $hash{$key} 这个函数从一个哈希中删除一个键,以及与这个键关联的值。

使用这个函数可以从哈希中删除元素。
代码:
#!/bin/perl

# define hash
%data = ('king' => 'queen', 'prince' => 'princess');

# remove element with key 'king'
delete $data{'king'};
split($delim, $str) 这个函数使用$delim将一个字符串分解,并返回一个以数字为索引的数组,返回数组的元素为原始字符串中由$delim分隔的各个部分。这些元素可以在一个循环中处理。

使用这个函数可以将逗号分隔的列表分割成独立的数组元素。
代码:
#!/bin/perl

# define string
$str = "cat,hog,dog,log";

# split string on comma delimiter
@words = split(",", $str);
foreach $w (@words) {
print "$w\n";
}

输出:
cat
hog
dog
log
join($sep, @arr) 这个函数将一个数组的各个元素组合成一个单一的字符串,原来的各个元素使用$sep的值分隔。

使用这个函数可以将多个独立的数组元素组合成一个单一的字符串,而新组合成的字符串由空格、逗号或其它分隔符隔开。
代码:
#!/bin/perl

# define array
@data = ("Harry", "Joan", "Tom");

# create string from arrayprint join(" and ", @data) . " are friends";

输出:
Harry and Joan and Tom are friends
keys(%hash) 这个函数将哈希的键返回为一个以数字为索引的数组。这个函数与下面将要讨论的values()函数功能正好相对。

使用这个函数可以将一个哈希的键提取为一个独立的数据结构,用于以后的处理。
代码:
#!/bin/perl

# define hash
%data = ('a' => 'apple', 'b' => 'bat', 'c' => 'cat');

# get and print hash keys
@keys = keys(%data);

输出:
c a b
values(%hash) 这个函数将哈希的值返回为一个以数字为索引的数组。这个函数与前面讨论的keys()函数功能正好相对。

使用这个函数将一个哈希的值提取为一个独立的数据结构,用于以后的处理。
代码:
#!/bin/perl

# define hash
%data = ('a' => 'apple', 'b' => 'bat', 'c' => 'cat');

# get and print hash keys
@vals = values(%data);
foreach $v (@vals) {
print "$v ";
}

输出:
cat apple bat
reverse(@arr) 这个函数将数组元素的次序翻转,将最后一个元素放在第一个,同样,将第一个元素放在最后。

使用这个函数可以将数组的元素的顺序调整为与当前顺序完全相反。
代码:
#!/bin/perl

# define array
@data = ('apple', 'peach', 'banana');

# reverse array
@rev = reverse(@data);
print "@rev ";

输出:
banana peach apple
sort(@arr) 这个函数可以用来对数组或哈希进行排序。缺省情况下,这个函数使用标准的字符串对比规则进行排序;然而,你可以通过传入一个自定义排序子函数的名字来覆盖其缺省行为。

使用这个函数可以重置数组元素的内部顺序,或者以字母序、数字序或者自定义序来重新排列数组。
代码:
#!/bin/perl

# define hash
@data = ('oranges', 'peaches', 'grapes', 'apples', 'lemons');

# sort alphabetically
@sorted = sort(@data);
print "@sorted ";

输出:
apples grapes lemons oranges peaches
 
阅读(4226) | 评论(0) | 转发(1) |
0

上一篇:关掉终端铃声

下一篇:Perl学习之哈希 hash

给主人留下些什么吧!~~