- 论坛徽章:
- 145
|
本帖最后由 jason680 于 2017-08-20 17:56 编辑
回复 1# ma3501406
$ cat FILE
20170801A1.zip
20170802A1.zip
20170803A1.zip
20170804A1.zip
20170805A11.zip
20170805A1.zip
20170805A2.zip
20170806A1.zip
20170807A1.zip
20170805R1.zip
20170805R2.zip
20170805R11.zip
20170806R1.zip
20170807R1.zip
20170808R1.zip
# sort only
$ perl -ne '{push @a,$_}END{print map{$_->[0]}sort{$a->[1]<=>$b->[1]or$a->[2]cmp$b->[2]or$a->[3]<=>$b->[3]}map{[$_,split/(\w+)/]}@a}' FILE
20170801A1.zip
20170802A1.zip
20170803A1.zip
20170804A1.zip
20170805A1.zip
20170805A11.zip
20170805A2.zip
20170805R1.zip
20170805R11.zip
20170805R2.zip
20170806A1.zip
20170806R1.zip
20170807A1.zip
20170807R1.zip
20170808R1.zip
# after 20170804
$ perl -ne '{push @a,$_}END{print grep{$_>20170804}map{$_->[0]}sort{$a->[1]<=>$b->[1]or$a->[2]cmp$b->[2]or$a->[3]<=>$b->[3]}map{[$_,split/(\w+)/]}@a}' FILE
20170805A1.zip
20170805A11.zip
20170805A2.zip
20170805R1.zip
20170805R11.zip
20170805R2.zip
20170806A1.zip
20170806R1.zip
20170807A1.zip
20170807R1.zip
20170808R1.zip
# sort only
$ awk -vFS='' 'BEGIN{split("8d 3s 3d",f," ")}{c=0;s=k="";d=0;for(n=1;n<=NF;++n){D=($n~/[0-9]/)?0:"-";if(D==d){s=s$n;continue}k=k sprintf("%"d f[++c],s);s=$n;d=D}a[k]=$0}END{t=asorti(a,b);for(n=1;n<=t;++n){v=a[b[n]];print v}}' FILE20170801A1.zip
20170802A1.zip
20170803A1.zip
20170804A1.zip
20170805A1.zip
20170805A2.zip
20170805A11.zip
20170805R1.zip
20170805R2.zip
20170805R11.zip
20170806A1.zip
20170806R1.zip
20170807A1.zip
20170807R1.zip
20170808R1.zip
# after 20170804
$ awk -vFS='' 'BEGIN{split("8d 3s 3d",f," ")}{c=0;s=k="";d=0;for(n=1;n<=NF;++n){D=($n~/[0-9]/)?0:"-";if(D==d){s=s$n;continue}k=k sprintf("%"d f[++c],s);s=$n;d=D}a[k]=$0}END{t=asorti(a,b);for(n=1;n<=t;++n){v=a[b[n]];if(+v>20170804)print v}}' FILE
20170805A1.zip
20170805A2.zip
20170805A11.zip
20170805R1.zip
20170805R2.zip
20170805R11.zip
20170806A1.zip
20170806R1.zip
20170807A1.zip
20170807R1.zip
20170808R1.zip
|
|