一、
列表是包含在括号里的一序列的值,可以为任何数值,也可为空,如:(1, 5.3 , "hello" , 2),空列表:()。
注:只含有一个数值的列表(如:(43.2) )与该数值本身(即:43.2 )是不同的,但它们可以互相转化或赋值。
列表例:
(17, $var, "a string")
(17, 26 << 2)
(17, $var1 + $var2)
($value, "The answer is $value")
二、数组--列表的存贮
列表存贮于数组变量中,与简单变量不同,数组变量以字符"@"打头,如:
@array = (1, 2, 3);
注:
(1)数组变量创建时初始值为空列表:()。
(2)因为PERL用@和$来区分数组变量和简单变量,所以同一个名字可以同时用于数组变量和简单变量,如:
$var = 1;
@var = (11, 27.1 , "a string");
但这样很容易混淆,故不推荐。
1、数组的存取
.对数组中的值通过下标存取,第一个元素下标为0。试图访问不存在的数组元素,则结果为NULL,但如果给超出数组大小的元素赋值,则数组自动增长,原来没有的元素值为NULL。如:
@array = (1, 2, 3, 4);
$scalar = $array[0];
$array[3] = 5; # now @array is (1,2,3,5)
$scalar = $array[4]; # now $scalar = null;
$array[6] = 17; # now @array is (1,2,3,5,"","",17)
.数组间拷贝
@result = @original;
.用数组给列表赋值
@list1 = (2, 3, 4);
@list2 = (1, @list1, 5); # @list2 = (1, 2, 3, 4, 5)
.数组对简单变量的赋值
(1) @array = (5, 7, 11);
($var1, $var2) = @array; # $var1 = 5, $var2 = 7, 11被忽略
(2) @array = (5, 7);
($var1, $var2, $var3) = @array; # $var1 = 5, $var2 = 7, $var3 ="" (null)
.从标准输入(STDIN)给变量赋值
$var = <STDIN>;
@array = <STDIN>; # ^D为结束输入的符号
2 、字符串中的方括号和变量替换
"$var[0]" 为数组@var的第一个元素。
"$var\[0]" 将字符"["转义,等价于"$var". "[0]",$var被变量替换,[0]保持不变。
"${var}[0]" 亦等价于"$var" ."[0]"。
"$\{var}"则取消了大括号的变量替换功能,包含文字:${var}.
3、列表范围:
(1..10) = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
(2, 5..7, 11) = (2, 5, 6, 7, 11)
(3..3) = (3)
.用于实数
(2.1..5.3) = (2.1, 3.1 ,4.1, 5.1)
(4.5..1.6) = ()
.用于字符串
("aaa".."aad") = ("aaa","aab", "aac", "aad")
@day_of_month = ("01".."31")
.可包含变量或表达式
($var1..$var2+5)
.小技巧:
$fred = "Fred";
print (("Hello, " . $fred . "!\n") x 2);
其结果为:
Hello, Fred!
Hello, Fred!
4、数组的输出:
(1) @array = (1, 2, 3);
print (@array, "\n");
结果为:
123
(2) @array = (1, 2, 3);
print ("@array\n");
结果为:
1 2 3
5、列表/数组的长度
当数组变量出现在预期简单变量出现的地方,则PERL解释器取其长度。
@array = (1, 2, 3);
$scalar = @array; # $scalar = 3,即@array的长度
($scalar) = @array; # $scalar = 1,即@array第一个元素的值
注:以数组的长度为循环次数可如下编程:
$count = 1;
while ($count <= @array) {
print ("element $count: $array[$count-1]\n");
$count++;
}
6、子数组
@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];
7、有关数组的库函数
(1)sort--按字符顺序排序
@array = ("this", "is", "a","test");
@array2 = sort(@array); # @array2 = ("a","is", "test", "this")
@array = (70, 100, 8 );
@array = sort(@array); # @array = (100, 70, 8 ) now
( 2)reverse--反转数组
@array2 = reverse(@array);
@array2 = reverse sort (@array);
(3)chop--数组去尾
chop的意义是去掉STDIN(键盘)输入字符串时最后一个字符--换行符。而如果它作用到数组上,则将数组中每一个元素都做如此处理。
@list = ("rabbit", "12345","quartz");
chop (@list); # @list = ("rabbi", "1234","quart") now
( 4)join/split--连接/拆分
join的第一个参数是连接所用的中间字符,其余则为待连接的字符数组。
$string = join(" ", "this", "is","a", "string"); # 结果为"this is a string"
@list = ("words","and");
$string = join("::", @list, "colons"); #结果为"words::and::colons"
@array = split(/::/,$string); # @array = ("words","and", "colons") now
二、基本操作
数组是perl里面一种非常有用的东西。我们可以通过下面的方式定义数组:
@a=("hello","great","cipher");
@b=(1,2,3,4,5,6,7);
@b的定义方式还可以写成下面的形式:
@b=(1..7); #这种方式对于需要1到10000的初始值得数组真实太重要了。
@b=("a".."z");
也是可以的,但是我想不出来对中国人有什么用。定义一个空数组可以用下面的方式:
@c=();
访问数组通过下面的方式(下标和c语言一模一样,从0开始,basic的用户要注意了):
$b[0]=10000;
注意这里引导符变成了$不是@。通过这个变化表示这时正在访问一个单独的数据。而不是一组数据。还可以使用多个下标,但是这时就要使用@引导符了。例如:
@b[5,7,9]=(45,56,67);
这种情况下,print $b[8];将会在使用了perl -w得到一个使用未定义变量的错误,其他情况下什么都不会发生。
数组之间相互拷贝,可以用下面的方式:
@d=@c;
这样要比c语言简单多了。同c语言不同,perl的数组是可以动态改变大小的。因此我们可以追加,删除数组内的元素。追加一个元素可以使用这种方式:
@c=(@c,"hello");
perl里面有一个专门的函数用来惊醒追加操作叫做push,push的使用方法如下:
push(@c,"hello");
push(@c,("hello","halloha"));
push(@c,@a);
这里可以看到,可以给数组追加一个元素,一组元素甚至另外一个数组。另外,在perl的数组中可以放不同类型的标量。这一点在c程序员的眼中可能有点怪异,但是如 果记住perl里面的一切都是引用就可以了。或者理解成这是一个void类型的指针的数组。有了push,就一定有pop。pop就是从数组的最后取出一个元素。用法为:
pop(@a);
既然可以从数组的末尾加入元素,那么一定也可以从数组的开头加入元素。那么这个功能是由unshift函数提供的。用法为:
unshift(@c,"hello");
unshift(@c,("hello","halloha"));
unshift(@c,@a);
有了unshif就一定会有shift了。shift的功能是从数组的开头取出一个元素。用法为:
unshift( @a);
有了操作数组两端的函数那么一定也会有操作数组中间部分的函数,这个函数就是splice,splice函数有三个作用。第一个作用是向数组中间的一部分插入内容。例如:
@d=(1..9);
my @e=("a".."f");
splice(@d,2,2,@e);
将会得到12abcdef56789,注意这里是从第二个开始插入,不是从下标为2的元素开始插入的。splice的第二个功能是删除,例如在刚才的代码上面再加上:
splice(@d,2,6);
将可以得到1256789;splice的第三个功能就是删除到末尾。语法为:
splice(@d,2);
就是从第二个开始,删除到末尾。我们还应该有一个可以把整个数组合并成一个标量的函数。这个函数就是join,join有两个参数,第一个参数是合并时放在元素之间的分割符,第二个是进行操作的数组。 例如:
my @g=(1,2,3);
join(" ",@g);
将可以得到“1 2 3”,还有三个函数我们昨天已经见过了,就是undef,chop和chomp。undef(@a); 的作用是把@a的内容清空。chop(@a); 的作用是把数组内每个元素的末尾去一个字符。而chomp(@a); 的作用则是把数组内的每一个元素的末尾的换行符去掉。我们还应该介绍一个函数就是scalar,这个函数取得数组的长度。例如:
my @h=(1,2,3);
scalar(@h);
将可以得到3。但是我们经常不这么用,因为在将数组向标量转换时就会返回数组的长度,例如下面的操作就可以。
my @i=(1,2,3,4);
print @i."\n";
将会打印出4。 好了,今天就到这里吧,最后是一个概括了今天大部分内容的程序。我写的。中间会输出很多错误信息。呵呵。
#!/user/bin/perl -w
use strict;
{ $|=" ";
my @a;
@a=(1,2,3);
@a[4,6]=(23,34);
#print $a[5];
#quoted because it would cause error
my @b;
@b=("because","haul");
push(@b,"grand");
print @b;
print "\n";
push(@b,("puppy","kitty"));
print @b;
print "\n";
push(@b,@a);
print @b;
print "\n";
push(@a,@b);
print @a;
print "\n";
my @c;
@c=(1,2,3,"hello");
print @c;
print "\n";
pop(@a);
print @a;
print "\n";
my @d;
@d=(1..9);
print @d;
print "\n";
my @e=("a".."f");
splice(@d,2,2,@e);
print @d;
print "\n";
splice(@d,2,6);
print @d;
print "\n";
}
三、qw
四、scalar 函数,强制转换为一个标量放入标量上下文,返回放入的数量
如
scalar @_;
转自:
http://deepfuture.iteye.com/blog/609593
分享到:
相关推荐
perl-Scalar-List-Utils-1.27-248.el7.x86_64 perl-File-Temp-0.23.01-3.el7.noarch perl-File-Path-2.09-2.el7.noarch perl-threads-shared-1.43-6.el7.x86_64 perl-threads-1.87-4.el7.x86_64 perl-Filter-...
- **变量**:Perl支持多种类型的变量,如标量(scalar)、数组(array)、哈希(hash)等,以及引用(reference)机制,允许创建复杂的数据结构。 - **正则表达式**:Perl的正则表达式功能强大且灵活,可以进行模式...
离线安装包,亲测可用
官方离线安装包,亲测可用
官方离线安装包,测试可用。请使用rpm -ivh [rpm完整包名] 进行安装
rpm -ivh perl-Scalar-List-Utils-1.35-1.147.x86_64.rpm rpm -ivh perl-Params-ValidationCompiler-0.30-10.1.noarch.rpm rpm -ivh perl-Dist-CheckConflicts-0.09-1.7.noarch.rpm rpm -ivh perl-Package-Stash-XS-...
1. **列表和数组的基本概念** - **列表** 是一组用逗号分隔的值,可以包含任何类型的数据,甚至可以是空的。例如 `(1, 5.3, "hello", 2)` 或空列表 `()`。 - **数组** 是用来存储列表的变量,以`@`符号开头,如 `@...
6. **List和Scalar上下文的改进**:对列表和标量上下文的处理进行了优化,使得在处理数组和标量时更加灵活。 7. **改进的错误处理**:增加了`try`和`catch`机制,方便捕获和处理运行时错误。 8. **正则表达式增强*...
官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装
官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装
官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装
官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装
perl-Scalar-List-Utils-1.27-248.el7.x86_64.rpm perl-Socket-2.010-4.el7.x86_64.rpm perl-Storable-2.45-3.el7.x86_64.rpm perl-Text-ParseWords-3.29-4.el7.noarch.rpm perl-threads-1.87-4.el7.x86_64.rpm perl...
官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装
在实际编程中,列表和数组常与其他Perl特性结合使用,如标量上下文、引用、哈希(Hashes)等,以实现更复杂的数据处理和逻辑控制。学习和熟练掌握列表和数组的使用,对于提升Perl编程能力至关重要。 总结一下,Perl...
在CentOS 6操作系统中,Perl被广泛用于系统管理、文本处理、网络编程、Web开发等多种任务。本资源包"perl-centos6.rar"提供了Perl在CentOS 6上的离线安装包,包括了perl-5.10.1-127.el6.x86_64.rpm等组件,这些组件...
- 变量:Perl支持多种类型的变量,如标量(scalar)、数组(array)和哈希(hash)。变量前缀$表示标量,@表示数组,%表示哈希。 - 引号:单引号(')内的字符串不进行特殊字符转义,双引号(")则会解析特殊字符,如`...
安装arm版mysql5.7安装proxysql中间件需要的per依赖,包含以下: proxysql-2.2.0-1-centos7.aarch64.rpm perl-DBD-MySQL-4.023-6.el7.aarch64.rpm ...perl-Scalar-List-Utils-1.27-248.el7.aarch64.rpm
本资料"Perl中数组的使用"将深入探讨Perl数组的各个方面,包括定义、初始化、操作以及一些实用技巧。 1. 定义数组: 在Perl中,数组由尖括号`<>`包围,数组名后跟一对花括号`{}`,例如`@array_name = ('value1', '...