Perl(十一)数组和列表二

一、函数续

练习1

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';

#(1)练习1
print "split示例:";
my $a='a,b,c';
# 模式(分割的条件) 操作的字符串 数组的长度
my @b=split(/,/,$a,2);
print "@b";

#(2)练习2
print "\nmap示例:";
# 对数组的每一个元素都加上1！
print map($_+1,(1,2));
print "\n";

#(3)练习3
print "wantarray示例:";
# 三目(条件)运算符
# 说明:子程序内部就带了打印功能
sub mysub(){print wantarray()?"数组\t":"变量\n"};
# 说明:子程序调用
# 也算是上下文的一个典型应用！
my @a=mysub;
$a=mysub;

（2）splice函数

功能：添加或者移出中间的元素

参数说明：操作的数组 操作一组元素的开始位置(索引) 指定操作的长度 要替换的列表

（3）二维数组

备注：了解即可，不太常用！

（4）总结