Perl 变量:数组变量

Posted sunziying

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Perl 变量:数组变量相关的知识,希望对你有一定的参考价值。

Perl 数组
Perl 数组一个是存储标量值的列表变量,变量可以是不同类型。
数组变量以 @ 开头。访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取。



1、创建数组
1.数组变量以 @ 符号开始,元素放在括号内,
2.以 qw 开始定义数组,第二个数组使用 qw// 运算符,它返回字符串列表,数组元素以空格分隔。
@array1 = (1, 2, ‘Hello‘);
@array2 = [1, 2, ‘Hello‘];
@array3 = qw/this is  a array/;

print @array1[0];   #1
print @array1;          #12hello

print @array2[0];   #1
print @array2;          #ARRAY(0x26e3160)   


2、访问数组元素
访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取。
数组索引值
从正向开始读取, 0 开始,即 0 为第一个元素,1 为第二个元素,以此类推。
负数从反向开始读取, -1开始,即 -1 为第一个元素, -2 为第二个元素 。


3、数组序列号
Perl 提供了可以按序列输出的数组形式,格式为 (起始值 .. 结束值)。

#!/usr/bin/perl

@var_10 = (1..10);  
@var_10 = [1..10];
print @var_10                 #1 2 3 4 5 6 7 8 9 10
print @var_10                 #ARRAY(0x26e3160) 

 





4、数组大小
数组大小由数组中的标量上下文决定。

。。。。。。



5、添加和删除数组函数
Perl 提供了一些有用的函数来添加和删除数组元素。

序号类型和描述
1 push @ARRAY, LIST 

将列表的值放到数组的末尾

2 pop @ARRAY

弹出数组最后一个值,并返回它

3 shift @ARRAY

弹出数组第一个值,并返回它。数组的索引值也依次减一。

4 unshift @ARRAY, LIST

将列表放在数组前面,并返回新数组的元素个数。




6、切割数组
我们可以切割一个数组,并返回切割后的新数组:
实例

#!/usr/bin/perl
@sites = qw/11 22 33 44 55 66 77/;
 
@sites2 = @sites[3,4,5];
@sites3 = @sites[3..5];
 
print "@sites2
";      #44 55 66
print "@sites3
";            #44 55 66

 



7、替换数组元素
Perl 中数组元素替换使用 splice() 函数,语法格式如下:
splice @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]
 参数说明:
    @ARRAY:要替换的数组。
    OFFSET:起始位置。
    LENGTH:替换的元素个数。
    LIST:替换元素列表。

以下实例从第6个元素开始替换数组中的5个元素:
实例
#!/usr/bin/perl
 
@nums = (1..10);
print "替换前: @nums
";
 
splice(@nums, 5, 5, 21..25);
print "替换后: @nums
";

执行以上程序,输出结果为:
替换前:1 2 3 4 5 6 7 8 9 10
替换后:1 2 3 4 5 21 22 23 24 25 

 



8、将字符串转换为数组
Perl 中将字符串转换为数组使用 split() 函数,语法格式如下:
split [ PATTERN [ , EXPR [ , LIMIT ] ] ]
参数说明:
    PATTERN:分隔符,默认为空格。
    EXPR:指定字符串数。
    LIMIT:如果指定该参数,则返回该数组的元素个数。

示例:
#!/usr/bin/perl
 
# 定义字符串
$var_1 = "hello";
$var_2 = "hello-welcome-world";
$var_3 = "hello,welcome,world,goodbye";
 
# 字符串转为数组
@var_1 = split(‘‘, $var_1);
@var_2 = split(-, $var_2);
@var_3 = split(,, $var_3);
 
print "$var_1[1]
";   # 输出 e
print "$var_2[1]
";   # 输出 welcome
print "$var_3[1]
";   # 输出 welcome

 



9、将数组转换为字符串
Perl 中将数组转换为字符串使用 join() 函数,语法格式如下:
    join EXPR, LIST
参数说明:
    EXPR:连接符。
    LIST:列表或数组。

实例
#!/usr/bin/perl
 
# 定义字符串
$var_1 = "hello-welcome-world";
$var_2 = "hello,welcome,world,goodbye";
 
# 字符串转为数组
@var_1 = split(-, $var_1);
@var_2 = split(,, $var_2);
 
# 数组转为字符串
$var_1 = join( -, @var_1 );
$var_2 = join( ,, @var_2 );
 
print "$var_1
";
print "$var_2
";

 


10、数组排序
Perl 中数组排序使用 sort() 函数,语法格式如下:
sort [ SUBROUTINE ] LIST
参数说明:
    SUBROUTINE:指定规则。
    LIST:列表或数组。

实例
#!/usr/bin/perl
 
# 定义数组
@sites = qw(hello world say goodbye);
print "排序前: @sites
";
 
# 对数组进行排序
@sites = sort(@sites);
print "排序后: @sites
";

执行以上程序,输出结果为:
排序前: hello world say goodbye
排序后: hello goodbye say world

 



11、合并数组
数组的元素是以逗号来分割,我们也可以使用逗号来合并数组,如下所示:

实例
#!/usr/bin/perl
@numbers = (1,3,(4,5,6));
print "numbers = @numbers
";     #numbers = 1 3 4 5 6


也可以在数组中嵌入多个数组,并合并到主数组中:

实例
#!/usr/bin/perl
 
@odd = (1,3,5);
@even = (2, 4, 6);
 
@numbers = (@odd, @even);
 
print "numbers = @numbers
";   #numbers = 1 3 5 2 4 6

 



12、从列表中选择元素
一个列表可以当作一个数组使用,在列表后指定索引值可以读取指定的元素,如下所示:

实例
#!/usr/bin/perl
 
$var = (5,4,3,2,1)[4];
print "var 的值为 = $var
"     #var 的值为 = 1

 























































































以上是关于Perl 变量:数组变量的主要内容,如果未能解决你的问题,请参考以下文章

10天学会Perl第二天——变量

5-Perl 变量

Perl 数组

7-Perl 数组

使用perl访问数组元素的变量

perl访问数组中参数