Perl开发的学习-4

五郎.

　　Perl 列表和数组比较相像，但与简单变量是完全不同的，也是Perl中比较强大的功能。一般如C、Java中是不存在列表概念，但在其它一些语言如Ruby中是存在的。列表的声明也是用@a来表示。

　　[root@windriver-machine test]# cat arr.pl
　　#!/usr/bin/perl
　　print "single list :\n";
　　@a=(2);
　　$a=$a[0];
　　print "$a\n";
　　print "list scope:\n";
　　@a=(4.5..1.6);
　　print "|@a|\n";
　　print "list elements:\n";
　　$a=(1,2,3,4)[1];
　　print "$a\n";
　　print "list assign values:\n";
　　$a=(1,2,3);
　　print "$a\n";
　　print "\$#a of application:\n";
　　@a=(1,2,3);
　　print "array length is $#a+1\t";
　　$#a=1;
　　print " array elements number subtract is @a\n";
　　print "using Sort:\n";
　　@a=(1,12,4,8,20);
　　@b=sort(@a);
　　print "@b\n";
　　@b=sort {$a$b}(@a);
　　print "@b\n";
　　print "split example:\n";
　　$a='a,b,c';
　　@b=split(/,/,$a,2);
　　print "@b\n";
　　print "wantarray example:\n";
　　sub mysub(){print wantarray()?"Array\t":"variable\n";}
　　@a=mysub;
　　$a=mysub;
　　print "map example:\n";
　　print map($_+1,(1,2));
　　print "\n";
　　print "two-dimension array:\n";
　　$aoa=[[1,2,3],['a','b','c']];
　　print "$aoa->[0][0]\n";
　　print "@{$aoa->[0]}[0,1]\n";
　　print "@{$aoa->[0]}\n";
　　print "@$aoa\n";
　　@a=(1,2,3);
　　@b=('a','b','c');
　　$aoa=[[@a],[@b]];
　　print "$aoa->[1][0]\n";
　　[root@windriver-machine test]#
　　[root@windriver-machine test]# perl arr.pl
　　single list :
　　2
　　list scope:
　　||
　　list elements:
　　2
　　list assign values:
　　3
　　$#a of application:
　　array length is 2+1 array elements number subtract is 1 2
　　using Sort:
　　1 12 20 4 8
　　1 4 8 12 20
　　split example:
　　a b,c
　　wantarray example:
　　Array variable
　　map example:
　　23
　　two-dimension array:
　　1
　　1 2
　　1 2 3
　　ARRAY(0x97f1864) ARRAY(0x9812d40)
　　a
　　[root@windriver-machine test]#