文本排序问题

jason680

回复 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

jason680

ma3501406 发表于 2017-08-21 01:06
回复 4# baby_神

用sed怎么实现呢

筷子喝汤?