(转)perl-列表与数组、基本操作、qw、 scalar

一、
  列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(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