Perl学习

Posted 2021-04-17 牛学汇

Perl语言学习

Perl 数组

切割数组：我们可以切割一个数组，并返回切割后的新数组

实例：

#!/usr/bin/perl 

@sites = qw/niuer niumowang teniu etal we are family/; 

@sites2 = @sites[4,5,6]; 

print "@sites2\n";

执行以上程序，输出结果为：

we are family

数组索引需要指定有效的索引值，可以是正数后负数，每个索引值使用逗号隔开。

如果是连续的索引，可以使用 .. 来表示指定范围：

实例

#!/usr/bin/perl 

@sites = qw/niuer niumowang teniu etal we are family/; 

@sites2 = @sites[4..6]; 

print "@sites2\n";

执行以上程序，输出结果为：

we are family

替换数组元素

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 = "niuer";

$var_string = "www-niuer-com";

$var_names = "niuer niumowang teniu etal we are family"; 

# 字符串转为数组

@test = split('', $var_test);

@string = split('-', $var_string);

@names  = split(',', $var_names); 

print "$test[3]\n";  # 输出 e

print "$string[2]\n";  # 输出 com

print "$names[3]\n";   # 输出 etal

执行以上程序，输出结果为：

e
com
etal

将数组转换为字符串

Perl 中将数组转换为字符串使用 join() 函数，语法格式如下：

join EXPR, LIST

参数说明：

EXPR：连接符。

LIST：列表或数组。

实例

#!/usr/bin/perl # 定义字符串

$var_string = "www-niuer-com";

$var_names= "niuer niumowang teniu etal we are family"; 

# 字符串转为数组

@string = split('-', $var_string);

@names  = split(',', $var_names);  # 数组转为字符串

$string1 = join( '-', @string );

$string2 = join( ',', @names ); 

print "$string1\n";print "$string2\n";

执行以上程序，输出结果为：

www-niuer-com
niuer niumowang teniu etal we are family

     以上分别介绍了数组的一些特性，相信在perl语言学习中会添砖加瓦，今天的你必将超越昨天的自己。

每天叫醒你的不是闹钟，而是理想

牛学汇