#!/usr/bin/perl
@array = 1..8;
@reveray = reverse(@array);
#不会改变原来数组中的内容
foreach (@array) {
print "$_ "
}
print "\n";
foreach (@reveray) {
print "$_ "
}
print "\n";
@array2 = reverse 3..7;
foreach (@array2) {
print "$_ "
}
print "\n";
#将反转结果存入原来的数组
@array = reverse @array;
foreach (@array) {
print "$_ "
}
print "\n";
./reverse.pl
1 2 3 4 5 6 7 8
8 7 6 5 4 3 2 1
7 6 5 4 3
8 7 6 5 4 3 2 1
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |