[root@XXXXXXX]# cat ./array.pl
#!/usr/bin/perl
@n=qw(1 2 3 a b c);
print "@n\n";
$count=scalar(@n);
foreach $i(1..$count){
$i++;
$i=$i+5;
print "倒數第",$i-$count,"個是\$n[",$count-$i,"] $n[$count-$i]\n";
}
[root@XXXXXXX]# ./array.pl
1 2 3 a b c
倒數第1個是$n[-1] c
倒數第2個是$n[-2] b
倒數第3個是$n[-3] a
倒數第4個是$n[-4] 3
倒數第5個是$n[-5] 2
倒數第6個是$n[-6] 1
[root@XXXXXXX]#
全站熱搜
留言列表
