perl - 列出最小顺序的文件

Question

我在如下目录中有一些文件(不一定排序):

A_10
A_20
A_30
B_10
B_30
C_10
C_20
D_20
D_30
E_10
E_20
E_30

10、20和30是A,B,C,D,E的序号分别。

我只想选择所有 A,B,C,D,E 中最小序列的文件 输出应该是:

A_10
B_10
C_10
D_20
E_10

谁能帮帮我？

Answer 1

perl -le '
  print join $/, 
    grep !$_{( split "_" )[0]}++, 
      sort glob "*_*"
  '

或:

printf '%s\n' *_* | sort | awk -F_ '!_[$1]++'

或:

printf '%s\n' *_* | sort -t_ -uk1,1