☰

Cree carpetas con nombres únicos de archivos

tag-icon • tag-icon bash sort
Cree carpetas con nombres únicos de archivos

Estoy intentando crear carpetas a partir de nombres de archivos únicos. Aquí están los archivos:

T001
└── 20000101
    ├── 6_3D-MP-RAGE_97.dcm
    ├── 6_3D-MP-RAGE_98.dcm
    ├── 5_133_VOLUMES_99027.dcm
    ├── 5_133_VOLUMES_99028.dcm
    ├── 5_133_VOLUMES_99029.dcm
    ├── 5_133_VOLUMES_99030.dcm
    ├── 4_COR_3D_T1_MPR_1.dcm
    ├── 4_COR_3D_T1_MPR_107.dcm

Quiero que bash magic dé como resultado esto:

T001
└── 20000101
    ├── 6_3D
        ├── 6_3D-MP-RAGE_97.dcm
        ├── 6_3D-MP-RAGE_98.dcm
    ├── 5_133
        ├── 5_133_VOLUMES_99027.dcm
        ├── 5_133_VOLUMES_99028.dcm
        ├── 5_133_VOLUMES_99029.dcm
        ├── 5_133_VOLUMES_99030.dcm
    ├── 4_COR
        ├── 4_COR_3D_T1_MPR_1.dcm 
        ├── 4_COR_3D_T1_MPR_107.dcm

Y probé este código para extraer nombres de carpetas, pero me quedé atascado:

all_patterns=()
for file in sorted/folder/*/*
do
    name=${file##*/}
    pattern=`echo ${name} | cut -f1 -d '_'`
    all_patterns+=( "$pattern" )
done

Respuesta1

Puede probar este código para generar los nombres de los directorios y crear esos directorios:

cd  T001/20000101
for i in *
do
dname=$(echo $i|awk -F'[-_]' '{print $1_$2}')
mkdir -p $dname
mv "$i" $dname
done

información relacionada