Perl 数组
Perl 数组
Perl 数组一个是存储标量值的列表变量,变量可以是不同类型。
数组变量以 @
开头。访问数组元素使用 $
+ 变量名称 + [索引值] 格式来读取,实例如下:
实例
#!/usr/bin/perl
@hits = (25, 30, 40);
@names = ("google", "CodingDict", "taobao");
print "\$hits[0] = $hits[0]\n";
print "\$hits[1] = $hits[1]\n";
print "\$hits[2] = $hits[2]\n";
print "\$names[0] = $names[0]\n";
print "\$names[1] = $names[1]\n";
print "\$names[2] = $names[2]\n";
程序中 $ 符号使用了 \ 来转义,让他原样输出。
执行以上程序,输出结果为:
$hits[0] = 25
$hits[1] = 30
$hits[2] = 40
$names[0] = google
$names[1] = CodingDict
$names[2] = taobao
创建数组
数组变量以 @
符号开始,元素放在括号内,也可以以 qw 开始定义数组。
@array = (1, 2, 'Hello');
@array = qw/这是 一个 数组/;
第二个数组使用 qw// 运算符,它返回字符串列表,数组元素以空格分隔。当然也可以使用多行来定义数组:
@days = qw/google
taobao
...
CodingDict/;
你也可以按索引来给数组赋值,如下所示:
$array[0] = 'Monday';
...
$array[6] = 'Sunday';
访问数组元素
访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取,实例如下:
实例
@sites = qw/google taobao CodingDict/;
print "$sites[0]\n";
print "$sites[1]\n";
print "$sites[2]\n";
print "$sites[-1]\n"; # 负数,反向读取
执行以上程序,输出结果为:
google
taobao
CodingDict
CodingDict
数组索引值从 0 开始,即 0 为第一个元素,1 为第二个元素,以此类推。
负数从反向开始读取,-1 为第一个元素, -2 为第二个元素
数组序列号
Perl 提供了可以按序列输出的数组形式,格式为 起始值 + .. + 结束值,实例如下:
实例
#!/usr/bin/perl
@var_10 = (1..10);
@var_20 = (10..20);
@var_abc = (a..z);
print "@var_10\n"; # 输出 1 到 10
print "@var_20\n"; # 输出 10 到 20
print "@var_abc\n"; # 输出 a 到 z
执行以上程序,输出结果为:
1 2 3 4 5 6 7 8 9 10
10 11 12 13 14 15 16 17 18 19 20
a b c d e f g h i j k l m n o p q r s t u v w x y z
数组大小
数组大小由数组中的标量上下文决定。:
@array = (1,2,3);
print "数组大小: ",标量 @array,"\n";
数组长度返回的是数组物理大小,而不是元素的个数,我们可以看以下实例:
实例
#!/uer/bin/perl
@array = (1,2,3);
$array[50] = 4;
$size = @array;
$max_index = $#array;
print "数组大小: $size\n";
print "最大索引: $max_index\n";
执行以上程序,输出结果为:
数组大小: 51
最大索引: 50
从输出的结果可以看出,数组元素只有四个,但是数组大小为 51。
添加和删除数组元素
Perl 提供了一些有用的函数来添加和删除数组元素。
如果你之前没有编程经验,可能会问什么是函数,其实我们之前使用的 print 即是一个输出函数。
下表列出了数组中常用的操作函数:
序号 | 类型和描述 |
---|---|
1 | push @ARRAY, LIST
将列表的值放到数组的末尾 |
2 | pop @ARRAY
弹出数组最后一个值,并返回它 |
3 | shift @ARRAY
弹出数组第一个值,并返回它。数组的索引值也依次减一。 |
4 | unshift @ARRAY, LIST
将列表放在数组前面,并返回新数组的元素个数。 |
实例
#!/usr/bin/perl
# 创建一个简单是数组
@sites = ("google","CodingDict","taobao");
print "1. \@sites = @sites\n";
# 在数组结尾添加一个元素
push(@sites, "baidu");
print "2. \@sites = @sites\n";
# 在数组开头添加一个元素
unshift(@sites, "weibo");
print "3. \@sites = @sites\n";
# 删除数组末尾的元素
pop(@sites);
print "4. \@sites = @sites\n";
# 移除数组开头的元素
shift(@sites);
print "5. \@sites = @sites\n";
执行以上程序,输出结果为:
1
2
3
4
5
切割数组
我们可以切割一个数组,并返回切割后的新数组:
实例
#!/usr/bin/perl
@sites = qw/google taobao CodingDict weibo qq facebook 网易/;
@sites2 = @sites[3,4,5];
print "@sites2\n";
执行以上程序,输出结果为:
weibo qq facebook
数组索引需要指定有效的索引值,可以是正数后负数,每个索引值使用逗号隔开。
如果是连续的索引,可以使用 .. 来表示指定范围:
实例
#!/usr/bin/perl
@sites = qw/google taobao CodingDict weibo qq facebook 网易/;
@sites2 = @sites[3..5];
print "@sites2\n";
执行以上程序,输出结果为:
weibo qq facebook
替换数组元素
Perl 中数组元素替换使用 splice() 函数,语法格式如下:
splice @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]
参数说明:
- @ARRAY:要替换的数组。
- OFFSET:起始位置。
- LENGTH:替换的元素个数。
- LIST:替换元素列表。
以下实例从第6个元素开始替换数组中的5个元素:
实例
#!/usr/bin/perl
@nums = (1..20);
print "替换前 - @nums\n";
splice(@nums, 5, 5, 21..25);
print "替换后 - @nums\n";
执行以上程序,输出结果为:
替换前 - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
替换后 - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20
将字符串转换为数组
Perl 中将字符串转换为数组使用 split() 函数,语法格式如下:
split [ PATTERN [ , EXPR [ , LIMIT ] ] ]
参数说明:
- PATTERN:分隔符,默认为空格。
- EXPR:指定字符串数。
- LIMIT:如果指定该参数,则返回该数组的元素个数。
实例
#!/usr/bin/perl
# 定义字符串
$var_test = "CodingDict";
$var_string = "www-CodingDict-com";
$var_names = "google,taobao,CodingDict,weibo";
# 字符串转为数组
@test = split('', $var_test);
@string = split('-', $var_string);
@names = split(',', $var_names);
print "$test[3]\n"; # 输出 o
print "$string[2]\n"; # 输出 com
print "$names[3]\n"; # 输出 weibo
执行以上程序,输出结果为:
o
com
weibo
将数组转换为字符串
Perl 中将数组转换为字符串使用 join() 函数,语法格式如下:
join EXPR, LIST
参数说明:
- EXPR:连接符。
- LIST:列表或数组。
实例
#!/usr/bin/perl
# 定义字符串
$var_string = "www-CodingDict-com";
$var_names = "google,taobao,CodingDict,weibo";
# 字符串转为数组
@string = split('-', $var_string);
@names = split(',', $var_names);
# 数组转为字符串
$string1 = join( '-', @string );
$string2 = join( ',', @names );
print "$string1\n";
print "$string2\n";
执行以上程序,输出结果为:
www-CodingDict-com
google,taobao,CodingDict,weibo
数组排序
Perl 中数组排序使用 sort() 函数,语法格式如下:
sort [ SUBROUTINE ] LIST
参数说明:
- SUBROUTINE:指定规则。
- LIST:列表或数组。
实例
#!/usr/bin/perl
# 定义数组
@sites = qw(google taobao CodingDict facebook);
print "排序前: @sites\n";
# 对数组进行排序
@sites = sort(@sites);
print "排序后: @sites\n";
执行以上程序,输出结果为:
排序前: google taobao CodingDict facebook
排序后: facebook google CodingDict taobao
注意:数组排序是根据 ASCII 数字值来排序。所以我们在对数组进行排序时最好先将每个元素转换为小写后再排序。
特殊变量: $[
特殊变量 $[ 表示数组的第一索引值,一般都为 0 ,如果我们将 $[ 设置为 1,则数组的第一个索引值即为 1,第二个为 2,以此类推。实例如下:
实例
#!/usr/bin/perl
# 定义数组
@sites = qw(google taobao CodingDict facebook);
print "网站: @sites\n";
# 设置数组的第一个索引为 1
$[ = 1;
print "\@sites[1]: $sites[1]\n";
print "\@sites[2]: $sites[2]\n";
执行以上程序,输出结果为:
网站: google taobao CodingDict facebook
@sites[1]: google
@sites[2]: taobao
一般情况我们不建议使用特殊变量 $[,在新版 Perl 中,该变量已废弃。
合并数组
数组的元素是以逗号来分割,我们也可以使用逗号来合并数组,如下所示:
实例
#!/usr/bin/perl
@numbers = (1,3,(4,5,6));
print "numbers = @numbers\n";
执行以上程序,输出结果为:
numbers = 1 3 4 5 6
也可以在数组中嵌入多个数组,并合并到主数组中:
实例
#!/usr/bin/perl
@odd = (1,3,5);
@even = (2, 4, 6);
@numbers = (@odd, @even);
print "numbers = @numbers\n";
执行以上程序,输出结果为:
numbers = 1 3 5 2 4 6
从列表中选择元素
一个列表可以当作一个数组使用,在列表后指定索引值可以读取指定的元素,如下所示:
实例
#!/usr/bin/perl
$var = (5,4,3,2,1)[4];
print "var 的值为 = $var\n"
执行以上程序,输出结果为:
var 的值为 = 1
同样我们可以在数组中使用 .. 来读取指定范围的元素:
实例
#!/usr/bin/perl
@list = (5,4,3,2,1)[1..3];
print "list 的值 = @list\n";
执行以上程序,输出结果为:
list 的值 = 4 3 2
本文转自:http://codingdict.com/article/6801
Perl 数组的更多相关文章
- Perl数组和hash相关函数
Perl数组和hash相关函数 内置的数组函数有: each, keys, pop, push, shift, splice, unshift, values 内置的hash函数有: delete, ...
- perl数组的长度与元素个数
perl数组的长度与元素个数 $#数组名 ---表示数组中最后一个元素的下标,它等于元素个数减1. @数组名 ---表示数组中元素的个数. $标量=@数组名 ---将一个数组赋值给一个标量变量,标量得 ...
- perl 数组快速去除重复元素
这里记录两种perl数组去重的办法,一种利用哈希(hash),一种直接利用perl自带的模块List::MoreUtils内部的函数uniq. 一.利用hash去重 示例代码如下: 1 #!/usr/ ...
- perl数组高级
1 去除一个数组中的重复元素: 使用grep函数代码片段: 代码: my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 ); my %count; ...
- perl 数组变量(Array) 转载
Perl 变量(2)--数组 原文地址:Perl 变量(2)--数组 作者:飞鸿无痕 二.数组 数组是标量数据的有序列表. 数组可以含任意多个元素.最小的数组可以不含元素,而最大的数组可以占满全部可用 ...
- Perl 数组应用详解(push, pop, shift, unshift)
Perl的数组操作有四大常用函数: push:从数组的末尾加入元素.pop :从数组的末尾取出元素 shift: 从数组的开头取出元素unshift:从数组的开头加入元素 1.push #!/usr/ ...
- Perl数组: shift, unshift, push, pop
pop pop函数会删除并返回数组的最后一个元素. .. ; $fred = pop(@array); # $fred变成9,@array 现在是(5,6,7,8) $barney = pop @ar ...
- Perl 变量:数组变量
Perl 数组Perl 数组一个是存储标量值的列表变量,变量可以是不同类型.数组变量以 @ 开头.访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取. 1.创建列表.数组1.数组变量以 @ ...
- Perl中的数组&哈希应用
哈希和数组是Perl中较为常用的结构,本文则重点讨论数组和哈希的一些基本用法,供广大喜爱Perl的同学们交流学习. 哈希 Perl中的哈希表类似于Python中的字典结构,由(键=>值)对构成, ...
随机推荐
- Spring-Boot使用neo4j-java-driver-- 查找两个节点之间关系的最短路径
一.Cypher数据 create (小北:朋友圈{姓名:"小北", 喜欢的书类:"Poetry"}), (小菲:朋友圈{姓名:"小菲", ...
- java oop第14章_Swing(Java界面设计)
一. Swing相关的概念: 1. GUI:(Graphical User Interface):图形化用户界面,通过图形化的方式提供与用户交互的平台,向用户展示信息.收集用户提交的数据. 2. ...
- 快速读取 C++
int read() { ; ; char ch=getchar(); ') { if (ch=='-') f=-; ch=getchar(); } ') { x=x*+ch-'; ch=getcha ...
- LNMP部署
部署企业LNMP架构 源码包:nginx-* ; mysql-* ; php-* ; boost-* ; zend-loader-php5.6-linux-* ;yum软件: pcre-devel z ...
- 【ZJOI2007】捉迷藏
题面 Description Jiajia和Wind是一对恩爱的夫妻,并且他们有很多孩子. 某天,Jiajia.Wind和孩子们决定在家里玩捉迷藏游戏. 他们的家很大且构造很奇特,由N个屋子和N-1条 ...
- Shell test命令(Shell [])详解,附带所有选项及说明
test 是 Shell 内置命令,用来检测某个条件是否成立.test 通常和 if 语句一起使用,并且大部分 if 语句都依赖 test. test 命令有很多选项,可以进行数值.字符串和文件三个方 ...
- leetcode-回溯③
题77 回溯: class Solution: def combine(self, n: int, k: int) -> List[List[int]]: res = [] def backtr ...
- JUC 一 CyclicBarrier 与 Semaphore
java.util.concurrent CyclicBarrier简介 CyclicBarrier:可重用屏障/栅栏 类似于 CountDownLatch(倒计数闭锁),它能阻塞一组线程直到某个事件 ...
- Java——包装类(Wrapper)
2.7包装类(Wrapper) 基本数据类型由于不是类,不能够使用java类库里提供的大量的方法.所有在设计上,我们让每一个基本数据类型都对应一个类,同时数据存储的范围还不变.此时相当于基本数据类型就 ...
- ElasticSearch再学习
ElasticSearch参数详解 本次使用的windows的版本,如若Linux移步:https://www.cnblogs.com/msi-chen/p/10335794.html 配置文件参数 ...