use strict; 
use warnings; 
  
my @files = glob "*.xml";          #perl中文件操作符glob提供相當于shell中的通配符的功能 
my @sorted_files = sort @files;    #sort()，排序，默認是字母順序排序

use strict; 
use warnings; 
 
#length求長度。 太空船操作符<=>，默認變量是$a,$b，返回值為-1,0,1分別表示大于，==，小于。 sort進行排序 
my $files = ".xml"; 
my @sorted_length = sort { length($a) <=> length($b) } @files; 

use strict; 
use warnings; 
  
my @files     = glob "*.xml";    
my @sort_size = sort { -s $a <=> -s $b } @files;  #比較大小 

use strict; 
use warnings; 
 
my @files = glob "*.xml"; 
 
my @unsorted_pairs = map  { [$_, -s $_] } @files; 
my @sorted_pairs   = sort { $a->[1] <=> $b->[1] } @unsorted_pairs; 
my @sorted_files   = map  { $_->[0] } @sorted_pairs; 

my @quickly_sorted_files = 
    map  { $_->[0] } 
    sort { $a->[1] <=> $b->[1] } 
    map  { [$_, -s $_] } 
    @files; 

#!/usr/bin/perl -w 
use strict; 
use warnings; 
use autodie; 
use v5.10; 
 
###################################### 
###  創(chuàng)建要比較的10,000個.xml文件 ### 
###################################### 
my $profix = ".xml"; 
 
foreach my $num (1..10000) { 
    open(my $fh, '>', $num . $profix) || die "Can not create the file: $!/n"; 
    print $fh "This is file size testing!"; 
} 
 
print "All the 10_1000 files created! /n"; 
 
 
###################################### 
### 常規(guī)轉(zhuǎn)換:      遍歷20次       ### 
###################################### 
my $t1  = time(); 
 
foreach (1..20){  
    my @files     = glob "*.xml"; 
    my @sorted    = sort { -s $a <=> -s $b } @files; 
} 
 
say "常規(guī)算法需要時間: => ", time()- $t1; 
 
 
###################################### 
### Schwartzian轉(zhuǎn)換: 遍歷20次     ### 
###################################### 
my $t2  = time(); 
 
foreach (1..20){  
    my @files = glob "*.xml"; 
        my @sorted =  
            map  {$_->[0]} 
            sort {$a->[1] <=> $b->[1]} 
            map  {[$_, -s $_]} 
       @files; 
} 

say "Schwartzian算法需要時間: => ", time()- $t2;