使用这些Perl 函数控制数组和哈希

最新推荐文章于 2025-06-19 11:35:50 发布
最新推荐文章于 2025-06-19 11:35:50 发布
阅读量423 收藏
点赞数
分类专栏： perl 文章标签： perl 数据结构 apple string 语言 delete
本文展示了Perl语言处理数组和哈希的强大函数，包括获取大小、检查键存在性、添加或删除元素等，提供了实用的示例代码。

转自：http://soft.zdnet.com.cn/software_zone/2005/0928/215375.shtml

Perl 虽因其字符串处理能力而闻名，但是这并不意味着 Perl 只能做字符串处理。这种语言还提供相当多的函数来处理和操纵其它的数据结构，其中包括很流行的数组和哈希。我们这篇文章展示了一些属于这一类的非常有用的函数，并简要解释了每个函数的工作方式以及使用它们的时机。
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 这个函数可以用来测试哈希中是否存在某个特定的键。 代码: 
#!/bin/perl

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

# check if key exists
if (exists $data) { 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 这个函数从一个哈希中删除一个键，以及与这个键关联的值。

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

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

# remove element with key 'king'
delete $data;
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 ";
}

输出: 
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

perl hash数组
zhaoyangjian724的专栏
10-11 809
Keys 和values 函数 Keys函数能返回哈希的键列表,而values函数能返回列表。 如果哈希没有任何成员,则两个函数都返回空列表: [root@jhoa perl]# cat 35.pl my %hash = ("a" => 1, "b" => 2,"c" => 3); my @k = keys %hash; my @v = values %hash; print "@k\n
38、Perl 数组、哈希与循环的深入解析
最新发布
m3n5b7v8c9x的博客
07-18 30
本文深入解析了 Perl 编程语言中数组、哈希和循环的核心概念与应用。通过具体示例，如网页单词频率统计脚本 `count_words`，展示了 Perl 在数据处理方面的强大功能。文章还对比了 Shell 与 Perl 在列表生成和循环设施方面的差异，帮助开发者更好地理解和迁移技能。此外，详细介绍了 Perl 的多种循环类型及其控制指令，为编写高效灵活的 Perl 程序提供了全面指导。
【perl】列表，数组和哈希的嵌套
lbt_dvshare的博客
11-05 9778
Ⅰ. 列表嵌套列表（列表嵌套列表即为二维列表） a. 列表的声明 方法一： @list = ( ["banana","apple","orange","pear"], ["cauliflower","lettuce","tomato","cucumber"], ["orange juice","apple
关于Perl哈希嵌套数组的总结，如何向数组中添加元素
weixin_56198196的博客
10-26 2967
今天对哈希嵌套数组进行了一些摸索，这里跟大家分享一下我的摸索成果！ 博主也是perl的小白，总结有很多不完善的地方，希望各路大神多多指正，感谢！！！ 成果只有两句话： $hash{$key}=[@array];就可以把数组传递给哈希了 $hash{$key}[position];就可以访问哈希里嵌套的数组的元素了，这里的position就是指要访问第几个元素(从0开始的) 下面是一些可能对uu们有用的解说 1.把数组的元素传递给哈希 可行方法：$hash{$key}=[@array]; #这
perl哈希push和哈希引用
曼曼花开，静观云卷云舒
05-28 917
哈希真的是非常好用的，目前写的很多perl脚本，基本必用哈希。而最常用的，就是将数组push到哈希。
Perl与JS的对比分析(数组、哈希)
09-21
1. **键值对操作**：Perl的哈希使用`keys`获取所有键，`values`获取所有值。JavaScript的`Object.keys()`返回对象的所有键，但没有内置的`Object.values()`，需要通过其他方式实现。 2. **数量计算**：Perl可以简单...
Perl语言的数组和哈希在数据处理中有哪些常见操作和技巧？请结合示例代码进行说明。
10-30
在《programming perl 3rd.pdf》中，你将了解到Perl语言的核心概念，包括数组和哈希这两种数据结构的高级用法。数组是有序的，而哈希则是无序的键值对集合，它们是Perl处理数据时不可或缺的工具。 参考资源链接：...
13、Perl 数据结构：数组、哈希与伪哈希的深度剖析
x1y2z的博客
06-19 27
本文深入探讨了 Perl 中的数组、哈希与伪哈希三种数据结构的特性、优缺点及适用场景。哈希虽然可读性强，但存在性能开销和自动生成问题；数组性能优越但需要常量辅助提升可读性；伪哈希结合数组与哈希的优点，能有效避免键拼写错误导致的隐性问题，但实现相对复杂。此外，还介绍了如何通过迭代器解决嵌套迭代问题，并提供了多个实际代码示例。
perl——使用keys/values函数返回hash的key/value数组
qq_36480087的博客
09-08 1102
#perl 5.26.1 my %food = ( 'apple' => 'fruit', 'pear' => 'fruit', 'carrot' => 'vegetable'); my @mykey = keys %food; print "@mykey\n"; foreach my $key (keys %food){ print "$key : $food{$key}\n"; } 运行结果： apple carrot pear apple : fruit carrot
Perl 学习笔记－高级控制结构
weixin_30411239的博客
05-29 229
1.unless控制结构 　　类似于独立的else语句; 要么条件为真, 要么执行语句块内的代码;unless(<condition>){code...;}等价于if(<condition>){}else{code...;} 也就是当条件为假是执行. unless (0) { print "Hello"; #Hello } 2. unt...
Perl数组与哈希的嵌套
weixin_56793272的博客
07-28 572
对于多维数组，用$arr[a1][a2]..形式访问，如果最终的元素是一个变量，则直接使用即可，如果最终的元素是数组，则需要用@{}括起来(@{$[a1][a2]...})，来告诉编译器最终的元素是数组。其实对于hash思路也是类似的。未完待续。。。
perl hash中嵌套数组的一些操作
u014210048的专栏
07-30 766
#!/usr/bin/perl -w use strict; #以下这三个可以挨个试试 #my %Sample = ('China'=>[14,960]); #my %Sample = ('China'=>[]); my %Sample = (); #my %data = ('google'=>'google.com', 'runoob'=>'runoob.com', 'taobao'=>'taobao.com'); foreach my $i(@{$Sample{'Ch.
Perl-哈希数组
weixin_34265814的博客
11-22 1330
2019独角兽企业重金招聘Python工程师标准>>> ...
perl 中hash表的清空操作
pxwei0506的专栏
11-01 9648
刚在写perl代码的时候, 突然发现写出的代码在hash统计值的时候有重复现象, 通过查代码, 发现是因为第一次统计完后, 没有清空已有的hash, 导致出现前面的情况. 以下说明一下hash的清空方式: %hash=();
perl 初始化Hash
zhaoyangjian724的专栏
11-19 4381
Vsftp:/root/perl/6# cat a5.pl use Data::Dumper; my @arr=qw/a bc d /; my %rec=(); for $field (@arr){ $rec{$field} = $field.33; } print %rec; print "\n"; print Dumper(%rec); print
perl函数说明(defined)
紫轩阁
06-20 9503
defined defined EXPR defined 这个函数返回一个布尔值，表明 EXPR 是否是一个已经定义的数值。你处理的大多数数据都是已经定义的，但是一个标量如果不包含有效的字串，数字，或者引用值，那么就说它是未定义的数值，或者简称 undef。把一个标量变量初始化为一个特定的值将定义它，并且将一直保持已定义状态直到你给它赋一个未定义值或者在该变量上明确调用 undef
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值