#!/bin/bash
#       Author: avb1003 from www.sql.ru
#       NO WARRANTY OF  ANY KIND      !
#       TRY BEFORE USE                  !
function usage {
echo "Usage: $1 [-p <pref_len>] <files>"
exit  0 
}
function die {
echo $*
exit  1 
}
[ $# -eq  0  ] && die `usage $ 0 `
[[ $ 1  == -h ]] && usage $ 0 
[[ $ 1  == -p* ]] && {
WIDTH=${ 1 #-p} ; shift
}
[[ -n $WIDTH ]] && {
[[ $WIDTH -gt  0  ]] || WIDTH= 5 
} || {
WIDTH=$ 1  ;
[[ $WIDTH -gt  0  ]] && shift || WIDTH= 5 
}
for i
do
[ -f $i ] || continue           # move only  ordinary files
eval DIR=\${i: 0 :$WIDTH}         # first WIDTH letters of name 
[ -d $DIR ] || mkdir $DIR ||    # If not exists create it
die "Can't mkdir $DIR"          # or die if can't
mv $i $DIR ||                   # do move
die "Can't move $i to $DIR"     # or die if can't
done

Linux Mandrake 9.0 kernel 2.4.28 & GNU bash, version 2.05b
и
CYGWIN-5.1 & Gnu bash, version 3.4.48

#  ....
# пропущенная "красота" написана для выбора длины имени папок, которая помещаетсся в переменную WIDTH
# c какой-то минимальной обработкой заданных параметров
# Варианты запуска :
#                                  do_sort.sh *   - для "сортировки" всех файлов в каталоге по первым  5 -символоам имени.
#                                  do_sort.sh -p  4  *.log       - для сортировки *.log файлов по первым  4 -символоам имени.
#                                  do_sort.sh -p3  *.dat      - для сортировки *.dat файлов по первым  3 -символоам имен
#
for i                              #  Цикл  по всем параметрам (именам файлов)
do
[ -f $i ] || continue           # E сли файл - не "обычный"(например, каталог), то продолжение цикла
eval DIR=\${i: 0 :$WIDTH}         # первые WIDTH символов имени.
                                                 #  Если  5  - "навсегда", то можно напмсать:
                                                 #  DIR=${i: 0 : 5 }   - присвоить в пересенную DIR  5  символов переменной i- имени текущего файла.
                                                  #   
[ -d $DIR ] || mkdir $DIR ||    # Если не существет каталог(папка) с именем $DIR, то попробовать ее создать
die "Can't mkdir $DIR"          #  если не удалось, то прекратить выполнение скрипта.
mv $i $DIR ||                   #   Осуществить перемещение
die "Can't move $i to $DIR"     # если не удалось, то прекратить выполнение скрипта.
done                                        # конец цикла

do_sort.sh `ls - 1  | egrep -e "(.)\1\1\1\1"`

...
A="....."                          #  - пять точек
for i
do
[[ ${i: 0 : 5 } == ${A//./${i: 0 : 1 }} ]] || continue     #  - если первые пять символов ==  строке из 
                                                                  #  упятиреного первого символа продолжить
                                                                  # выполнение текущей итерации.
[ -f $i ] || continue           # move only  ordinary files
...