perl reverse操作符的使用

在perl中，操作符reverse将输入的一串列表或数组按照相反的顺序返回。下面我们看一个例子：

perl

#!/usr/bin/perl
use strict;
use warnings;
my @array = (1 .. 9);
my @new_array;
print "@array\n";
@new_array = reverse(@array);
print "@new_array\n";
print "@array\n";
@array = reverse(@array);
print "@array\n";

上面的程序输出如下：

text

C:\perl>perl reverse.pl
1 2 3 4 5 6 7 8 9
9 8 7 6 5 4 3 2 1
1 2 3 4 5 6 7 8 9
9 8 7 6 5 4 3 2 1
C:\perl

使用reverse操作符时，perl会先计算变量的值，也就是=右边的值，然后再进行复制，如果reverse是将值赋给新的数组，那么原来的变量的值是不变的，如果将值赋给本身，则会改变变量的值，如果不复制给任何变量，那么这个操作是错误的，使用的时候应该特别注意。

perl reverse操作符的使用

延伸阅读

评论

发表评论