首页 > 编程语言 > 脚本语言 > perl

perl数组的多数字下标示例代码

2015-08-25 0

核心提示：perl数组中正常的下标运算，想必大家都比较熟悉，这里不作说明。本文想说的是perl数组下标的多数字取值，可以极大的方便数组的操作

perl数组中正常的下标运算，想必大家都比较熟悉，这里不作说明。
本文想说的是perl数组下标的多数字取值，可以极大的方便数组的操作。
注意：这些数字是从0 到 $#array的。

子数组

复制代码代码如下:

@array = (1, 2, 3, 4, 5);
@subarray = @array[0,1]; # @subarray = (1, 2)
@subarray2 = @array[1..3]; # @subarray2 = (2,3,4)
@array[0,1] = ("string", 46); # @array =("string",46,3,4,5) now
@array[0..3] = (11, 22, 33, 44); # @array = (11,22,33,44,5) now
@array[1,2,3] = @array[3,2,4]; # @array = (11,44,33,5,5) now
@array[0..2] = @array[3,4]; # @array = (5,5,"",5,5) now

可以用子数组形式来交换元素：

复制代码代码如下:

@array[1,2] = @array[2,1];

标签： perl数组

点赞 0反对 0举报 0 评论 0

免责声明：本文仅代表作者个人观点，与乐学笔记（本网）无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
本网站有部分内容均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责，若因作品内容、知识产权、版权和其他问题，请及时提供相关证明等材料并与我们留言联系，本网站将在规定时间内给予删除等相关处理.

Perl数组: shift, unshift, push, pop

pop函数会删除并返回数组的最后一个元素。@array = 5 .. 9;$fred = pop(@array);# $fred变成9，@array 现在是(5,6,7,8)$barney = pop @array; # $barney 变成8，@array 现在是（5，6，7）pop @array; # @array 现在是(5,6) (7被抛弃了) 如果

02-09
Perl数组去除重复元素怎么去除数组中的重复元

直接上代码my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 ); my %count; my @uniq_times = grep { ++$count{ $_ }2; } @array;

02-09
Perl入门（三）Perl的数组 perl数组元素个数

Perl数组的声明方式Perl使用"@"符号声明一个数组：@array；使用"()"或"qw()"声明数组中元素；一个完整的声明方式为：@array = (12,"123","abc",$var);......方法一或者@array = qw(12 123 abc); ............方法二或者@array = (1..10).....................

02-09
perl数组的长度与元素个数 perl 子程序数组参数

perl数组的长度与元素个数 $#数组名 ---表示数组中最后一个元素的下标，它等于元素个数减1。 @数组名 ---表示数组中元素的个数。 $标量=@数组名 ---将一个数组赋值给一个标量变量，标量得到的是这个数组的元素个数。 $数组名[数组下标]---这种格式可以取出数p

02-09
7个perl数组高级操作技巧分享

这篇文章主要介绍了7个perl数组高级操作技巧,本文讲解了数组去重、数组合并、查找最大值、列表归并等内容,需要的朋友可以参考下

07-03 perl 数组高级操作
Perl数组排序学习笔记

这篇文章主要介绍了Perl数组排序学习笔记,本文讲解了基于ASCII码排序、按字母顺序排列、Perl对数值排序等内容,需要的朋友可以参考下

06-26 Perl 数组排序