sort dicom slices into folders

move.sh

#!/bin/bash

set -eu

find pTIF0002_20200129_161954623/ -type f | while read f; do
        p=$(dcmdump "$f" | awk '/ProtocolName/{print $3;}' | sed -e 's,\],,g' -e 's,\[,,g')
        n=$(dcmdump "$f" | awk '/SeriesNumber/{print $3;}' | sed -e 's,\],,g' -e 's,\[,,g')

        d="$n-$p"

        mkdir -p $d
        mv "$f" $d
done