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 "$an";

print "list scope:n";

@a=(4.5..1.6);

print "|@a|n";

print "list elements:n";

$a=(1,2,3,4)[1];

print "$an";

print "list assign values:n";

$a=(1,3);

print "$an";

print "$#a of application:n";

@a=(1,3);

print "array length is $#a+1t";

$#a=1;

print " array elements number subtract is @an";

print "using Sort:n";

@a=(1,12,4,8,20);

@b=sort(@a);

print "@bn";

@b=sort {$a<=>$b}(@a);

print "@bn";

print "split example:n";

$a='a,b,c';

@b=split(/,/,$a,2);

print "@bn";

print "wantarray example:n";

sub mysub(){print wantarray()?"Arrayt":"variablen";}

@a=mysub;

$a=mysub;

print "map example:n";

print map($_+1,(1,2));

print "n";

print "two-dimension array:n";

$aoa=[[1,3],['a','b','c']];

print "$aoa-&gt;[0][0]n";

print "@{$aoa-&gt;[0]}[0,1]n";

print "@{$aoa-&gt;[0]}n";

print "@$aoan";

@a=(1,3);

@b=('a','c');

$aoa=[[@a],[@b]];

print "$aoa-&gt;[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]#