Как вывести имена, в которых количество строчных и прописных букв одинаково?

    low_=0
    high=0
 
    while read -s -n 1 line; do
    if expr "$line" : '[a-z]*' 2>/dev/null 1>/dev/null; then
        (( low_++ ))
    elif expr "$line" : '[A-Z]*' 2>/dev/null 1>/dev/null; then
        (( high++ ))
    fi
 
    done < $file
    echo $low_
    echo $high

func_main() {
    func_check_ls /projects
}
 
 
#~ читает указанный каталог
func_check_ls() {
    local IFS=$'\n'
 
    files=( $(ls "$1" -R) )
    if [ -f "$files" ]; then
        func_read_file "$files"
    fi
}
 
 
func_read_file() {
    low_=0
    high=0
 
    while read -s -n 1 line; do
        if   expr "$line" : '[a-z]*' 2>/dev/null 1>/dev/null; then
            (( low_++ ))
        elif expr "$line" : '[A-Z]*' 2>/dev/null 1>/dev/null; then
            (( high++ ))
        fi
    done < "$1"
    echo $low_
    echo $high
}
 
 
func_main
exit 0

echo $files

#!/bin/bash
#~ Вывести список файлов указанного каталога, в которых кол-во строчных и прописных букв одинаково
 
 
declare -a FI_AR    #~ массив с найденными файлами
declare -a HI_AR    #~ количество прописных в найденных файлах
declare -a LO_AR    #~ количество строчных в найденных файлах
declare -a F_RES    #~ имена совпавших файлов
declare -i CNT=0    #~ счетчик массивов
 
 
func_main() {   #~ главная функция
    echo -ne "" >/tmp/find_chars.log    #~ обнуляем лог
    func_check_ls /каталог для проверки
    echo ---
    func_make_arrs
    echo ---
    func_show_arrs
    echo ---
    func_compare_files
}
 
 
func_check_ls() {   #~ читает указанный каталог
    local IFS=$'\n'
 
    files=( $(ls -R "$1") ) #~ читает рекурсивно каталог в массив
    for (( i = 0; i < ${#files[@]}; i++ )); do
        files[$i]="$1/${files[$i]}"
        #~ если файл, то считает буквы
        [ -f "${files[$i]}" ] || continue
        [ -r "${files[$i]}" ] || continue
        readelf -h "${files[$i]}" 1>/dev/null 2>/dev/null
        #~ если не ельф файл (бинарник) то возвращает 1
        (( $? == 1 )) || continue
        FI_AR[$CNT]="${files[$i]}"
        echo -ne "CNT="$CNT"; "
        func_read_file ${FI_AR[$CNT]} $CNT &
        (( CNT++ ))
    done
    wait
}
 
 
func_read_file() {  #~ считает буквы в файле. $1 - имя файла, $2 - индекс CNT
    local low_=0    #~ счетчик строчных
    local high=0    #~ счетчик прописных
    local line
 
    while read -s -n 1 line; do
        if   expr "$line" : '[a-z]*' 2>/dev/null 1>/dev/null; then
            (( low_++ ))
        elif expr "$line" : '[A-Z]*' 2>/dev/null 1>/dev/null; then
            (( high++ ))
        fi
    done < "$1"
    echo -e "$1|$high|$low_" >> /tmp/find_chars.log
}
 
 
func_make_arrs() {  #~ создаем массивы
    local i=0
    local line
 
    while read line; do
        FI_AR[$i]=$( echo "$line" | awk -F '|' '{print $1}' )   #~ после -F стоит разделитель
        LO_AR[$i]=$( echo "$line" | awk -F '|' '{print $2}' )   #~ после -F стоит разделитель
        HI_AR[$i]=$( echo "$line" | awk -F '|' '{print $3}' )   #~ после -F стоит разделитель
        (( i++ ))
    done < /tmp/find_chars.log
    (( CNT = i ))
}
 
 
func_show_arrs() {  #~ выводит полученные массивы
    local i
 
    for (( i = 0; i < CNT; i++ )); do
        echo "$(basename "${FI_AR[$i]}"):${LO_AR[$i]}:${HI_AR[$i]}"
    done
}
 
 
func_compare_files() {  #~ 
    for (( h = 0; h < (CNT - 1); h++ )); do
        [ "${HI_AR[$h]}" != "" ] || continue
        for (( l = h + 1; l < CNT; l++ )); do
            (( HI_AR[h] == HI_AR[l] )) && \
            (( LO_AR[h] == LO_AR[l] )) && \
            F_RES="$F_RES\n$( basename "${FI_AR[$h]}" ) | $( basename "${FI_AR[$l]}" )" && \
            unset FI_AR[$l] && \
            unset HI_AR[$l] && \
            unset LO_AR[$l] && \
            true
        done
    done
    echo -e "$F_RES"
}
 
 
func_main
exit 0

echo -n "Укажите путь к каталогу: "
    read pathDir
    find $pathDir -type f|while read FILE; do   
    Big_Chars=$(grep -o -c [A-Z] "$FILE")
    Small_Chars=$(grep -o -c [a-z] "$FILE") 
    if [ $Big_Chars -eq $Small_Chars ]; then
        echo "$FILE"    
    fi
    done 
       ;;

#!/bin/bash
 
echo -n "Укажите путь к каталогу: "
read pathDir
#~ pathDir=prb_find_chars
find $pathDir -type f | while read FILE; do   
    Big_Chars=$(grep -o -c [A-Z] "$FILE")
    Small_Chars=$(grep -o -c [a-z] "$FILE")
        if [ $Big_Chars -eq $Small_Chars ]; then
            echo "$FILE"
        fi
done
exit 0

count()
{
    case $1 in
      l) s='[:lower:]';;
      u) s='[:upper:]';;
      *) return 1;;
    esac
    cat "$2" | tr -cd "$s" | wc -c
}

count()
{
    case $1 in
      l) s='[:lower:]';;
      u) s='[:upper:]';;
      *) return 1;;
    esac
    cat "$2" | tr -cd "$s" | wc -c
}
 
echo -n "Укажите путь к каталогу: "
    read pathDir
    find $pathDir -type f|while read FILE; do   
    Big_Chars="$(count u "$FILE")"
    Small_Chars="$(count l "$FILE")"
    if [ $Big_Chars -eq $Small_Chars ]; then
        echo "$FILE"    
    fi
    done 
       ;;