perl_reverse_sort_scalar

学习perl的reverse,sort,scalar,记录一下。

[root@OTRS perl]# more reverse_sort_scalar.pl       
#!/usr/bin/perl -w
use strict;
#reverse
my @array_reverse = 1..3;
my @array_ed = reverse(@array_reverse);
print "数组的值为1 2 3,reverse反转数组的值为: ","@array_ed\n";
#sort
my @array_sort = qw/c b a/;
my @sorted = sort@array_sort;
print "数组的值为c b a,sort排序后为: ","@sorted\n";
#scalar强制指定标量上下文。
my @array_scalar = qw/a b c/;
print "数组的值为abc,scalar指出数组的个数为:",scalar@array_scalar,"\n";
[root@OTRS perl]# perl reverse_sort_scalar.pl 
数组的值为1 2 3,reverse反转数组的值为: 3 2 1
数组的值为c b a,sort排序后为: a b c
数组的值为abc,scalar指出数组的个数为:3