Perl中列表和數組的用法

總結一下Perl中列表和數組操作的一些用法

假設定義一個陣列變數@arr, 將列表（str_a, str_b, str_c, str_d）賦值給數組@arr

@arr = (str_a, str_b, str_c, str_d);

將數組@arr的元素個數賦值給$var

$var = @arr;

列印這個數組@arr，並且數組中的元素以空格分隔開

print "@arr\n";

列印數組@arr的第一個和第三個元素和最後一個元素，預設索引從0開始，索引-1表示最後一個元素

print "$arr[0], $arr[2], $arr[-1]\n";

列印數組@arr的最後一個元素的索引值

print "$#arr\n";

pop操作符， 取出數組的最後一個元素並賦值給$var

$var = pop @arr;

push操作符，添加一個元素到數組的尾端

push @arr, "str_e";

shift操作符，取出數組的第一個元素並賦值給$var

$var = shift @arr;

unshift操作符， 添加一個元素到數組的開頭位置

unshift @arr, "str_f";

splice操作符，

若指定2個參數，第一個為數組，第二個為索引，則取出該數組的這個索引後的所有元素

@brr = splice @arr,2;

若指定3個參數，第3個代表取出元素的個數，例如取出數組索引1的元素和後面的共2個元素

@brr = splice @arr,1,2;

若指定4個參數，第4個代表替換前面被取出的元素，例如str_e將替換被取出的2個元素

splice @arr,1,2,"str_e";

列表批量賦值，qw表示自動加上引號的列表

($var_a, $var_b, $var_c) = qw( apple pear banana );

交換列表中變數的值

($var_a, $var_b) = ($var_b, $var_a);

迴圈列印列表元素，$_代表列表中的預設變數

foreach (1..10){

       print "$_\n";

}

reverse操作符，將列表中的元素反向排序並賦值給另一個數組

@rra = reverse (1..10);

sort操作符， 將列表中的元素按照ASCII碼順序排序

@arr = sort qw( apple pear banana );

本文出自 “努力為之” 部落格，請務必保留此出處http://carllai.blog.51cto.com/1664997/1174840

查看本欄目更多精彩內容：http://www.bianceng.cnhttp://www.bianceng.cn/Programming/extra/