Обойти все каталоги и удалить случайные файлы

#!/bin/sh
 
files=($(find -mindepth 2 -type f))
n=${#files[@]}
 
#echo ${files[@]} $n
 
for i in $(seq $((n / 3))); do
    r=$(($RANDOM % $n))
    #echo rand: $r
    echo delete: ${files[$r]}
    #rm -f ${files[$r]}
done
 
exit 0

#!/bin/sh
 
IFS=$'\n'
a=("procedure blah_blah();" "begin" "write(a);" "read(b);" "c := a+b;" "end;")
IFS=$' \t\n'
#echo ${a[1]}
 
#for i in ${a[@]}; do
#    echo $i
#done
 
for n in $(seq 0 $((${#a[@]} - 1))); do
    case $n in
     0) regexp="^procedure .\+();$";;
     1) regexp="^begin$";;
     2) regexp="^write(.\+);$";;
     3) regexp="^read(.\+);$";;
     4) regexp="^. := .+.;$";;
     5) regexp="^end;$";;
    esac
    line=${a[n]}
    #echo $line
    if echo -n "$line" | grep -qe "$regexp"; then
        echo $((n + 1)): true
    else
        echo $((n + 1)): false
    fi
    ((n++));
done
 
exit 0

#!/bin/sh
# в какую программу передавать дальнейший текст
 
IFS=$'\n'
# internal field separator
# разделитель заменяется с пробелов, табуляций и перевода строки на перевод строки
# если его не установить, то пробелы будут считаться разделителями
# и массив будет иметь элементы "procedure" и "blah_blah();", а не "procedure blah_blah();"
 
a=("procedure blah_blah();" "begin" "write(a);" "read(b);" "c := a+b;" "end;")
# создаётся массив строк
 
IFS=$' \t\n'
# разделитель возвращается обратно, так как на него реагирует всё
 
#echo ${a[1]}
# вывод, чтобы удостовериться, что массив правильно создался
 
#for i in ${a[@]}; do
#    echo $i
#done
# вывод, чтобы удостовериться, что массив правильно создался
 
for n in $(seq 0 $((${#a[@]} - 1))); do
# цикл для всех индексов массива, seq - это программа (sequence)
# от "нуля" до "количество элементов - 1" включительно
    
    case $n in
    # выбрать n из перечисленных ниже
    
     0) regexp="^procedure .\+();$";;
     # regexp - это обычная переменная
     
     1) regexp="^begin$";;
     2) regexp="^write(.\+);$";;
     3) regexp="^read(.\+);$";;
     4) regexp="^. := .+.;$";;
     5) regexp="^end;$";;
    esac
    
    line=${a[n]}
    # текущий элемент заносится в удобную переменную
    
    #echo $line
    # вывод, чтобы удостовериться, что элемент правильный
    
    if echo -n "$line" | grep -qe "$regexp"; then
    # если регулярное выражение подходит,
    # то grep вернёт истину
        echo $((n + 1)): true
        # вывести n + 1 и true
    else
    # иначе grep вернёт ложь
        echo $((n + 1)): false
        # вывести n + 1 и false
    fi
    ((n++));
    # увеличить n на еденицу
done
 
exit 0
# скрипт возвращает истину в исполняющую среду