学习perl的reverse,sort,scalar

liukaida

　　学习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
  

　　转载自：http://baiqiuyi.com/linux/perl_reverse_sort_scalar.html?replytocom=1985小桥流水人家