依次取文件

jason680

回复 1# 林间笑客

$ ls weaf*
weaf10.txt  weaf13.txt  weaf16.txt  weaf19.txt  weaf3.txt  weaf6.txt  weaf9.txt
weaf11.txt  weaf14.txt  weaf17.txt  weaf1.txt   weaf4.txt  weaf7.txt
weaf12.txt  weaf15.txt  weaf18.txt  weaf2.txt   weaf5.txt  weaf8.txt

$ perl sort_wn.pl
weaf1.txt weaf2.txt weaf3.txt weaf4.txt weaf5.txt weaf6.txt weaf7.txt weaf8.txt weaf9.txt weaf10.txt weaf11.txt weaf12.txt weaf13.txt weaf14.txt weaf15.txt weaf16.txt weaf17.txt weaf18.txt weaf19.txt jason@jason-

$ cat sort_wn.pl
#!/bin/env perl
use strict;
use warnings;

my @aFile = glob("weaf*.txt");

my @aFile_sort =
  map  { $_->[0] }
  sort { $a->[1] cmp $b->[1] }
  map  { ( my $x = $_ ) =~ s/(\d+)/sprintf("%03d",$1)/e;
      [ $_ , $x ] } @aFile;

foreach(@aFile_sort){
  print "$_ "; # your code here
}

   

q1208c

回复 7# ly5066113


      好吧. 我错了.  我闪.

uiojkl227

1. sub getid {
   
2. 
   
3.     my ($x ) = @_;
   
4.         return $1 if $x =~ m/(\d+)\./;
   
5.         return 0;
   
6. }
   
7. 
   
8. 
   
9. for my $file (sort { getid($a) <=> getid($b) } @arrays) {
   
10. 
    
11.     dosometing;
    
12. }
    
13. 
    

复制代码

回复 1# 林间笑客


   

林间笑客

谢谢各位前辈

aku1

uiojkl227 发表于 2014-07-18 17:24
回复 1# 林间笑客

这个不错