学习: pop函数会移去给定数组的最后一个元素并返回这个元素。push函数会将给定的列表依先后次序添加到指定数组的后端。reverse返回数组元素的逆序列表,或者字符串中单字符的逆序组成字符串。 例: @arr = qw(DNA RNA PROTEIN); $last_arr = pop @arr; #$last_arr被赋值 PROTEIN print @arr; #@arr现在只剩下 DNA RNA两个元素 push @arr,$last_arr; #将$last_arr赋值给$arr[$#arr+1] push @arr,('DNA','RNA','PROTEIN');#现在@arr有6个元素 注意:push 的第一个参数或者 pop 的唯一参数必须是数组变量。 示例1:将小于100的偶数存入数组@even,再将@even逆序存入@reverse for($i = 2;$i < 100; $i += 2){ push @even,$i; } foreach $i (0..$#even){ push @reverse,pop(@even); } @reverse = reverse @even;#这样更简单 作业: 用push函数将小于100且能被5整除的数存入数组@num_5. 再用pop函数将其后5个数移出,同时从大到小依次存入数组@rev_5.