··readablesize()
··{
····if [$1 −ge 1048576]; then
······echo "$($scriptbc −p 2 $1 / 1048576)GB"
····elif [$1 −ge 1024]; then
······echo "$($scriptbc −p 2 $1 / 1024)MB"
····else
······echo "${1}KB"
····fi
··}
··#################
··## КОД ОСНОВНОГО СЦЕНАРИЯ
··if [$# −gt 1]; then
····echo "Usage: $0 [dirname]" >&2
····exit 1
··elif [$# −eq 1]; then # Указан определенный каталог, не текущий?
····cd "$@"················# Тогда перейти в него.
····if [$? -ne 0]; then # Или выйти, если каталог не существует.
······exit 1
····fi
··fi
··for file in *
··do
····if [-d "$file"]; then
······size=$(ls "$file" | wc −l | sed 's/[^[: digit: ]]//g')
······if [$size −eq 1]; then
········echo "$file ($size entry)|"
······else
········echo "$file ($size entries)|"
······fi
····else
······size="$(ls −sk "$file" | awk '{print $1}')"
······echo "$file ($(readablesize $size))|"
····fi
··done | \
····sed 's/ /^^^/g' | \
····xargs −n 2 | \
····sed 's/\^\^\^/ /g' | \
····awk−F\| '{ printf "%-39s %-39s\n", $1, $2 }'
··exit 0
Как это работает
Одним из наиболее интересных элементов сценария является функция readablesize , которая принимает число в килобайтах и выводит килобайты, мегабайты или гигабайты, в зависимости от наиболее подходящей единицы измерения. Например, для файла очень большого размера она выведет 2.08GB вместо 2,083,364KB. Обратите внимание, что readablesize вызывается с применением конструкции $() :
echo "$file ($(readablesize $size))|"
Подоболочки автоматически наследуют все функции, объявленные в родительской оболочке, поэтому подоболочка, запущенная конструкцией $(), получит доступ к функции readablesize. Очень удобно.
Ближе к началу сценария проверяется, был ли указан какой-то другой каталог, отличный от текущего, и затем производится смена текущего рабочего каталога выполняющегося сценария с помощью простой команды cd.
Основная логика сценария занимается организацией вывода в две колонки, выровненные по вертикали. Одна из проблем, возникающих при этом, состоит в том, что пробелы в потоке вывода нельзя просто заменить символами перевода строки, потому что имена файлов и каталогов сами могут содержать пробелы. Чтобы решить эту проблему, сценарий в сначала замещает каждый пробел последовательностью из трех «крышек» (^^^). Затем с помощью команды xargs объединяет строки попарно, чтобы каждая пара строк превратилась в одну, разделенную вертикальной чертой на два поля. Наконец, в вызывается команда awk для вывода полей с требуемым выравниванием.
Обратите внимание, как просто в подсчитывается количество (не скрытых) элементов внутри каталога с помощью команд wc и sed:
size=$(ls "$file" | wc −l | sed 's/[^[: digit: ]]//g')
Запуск сценария
Чтобы получить список содержимого сценария, запустите сценарий без аргументов, как показано в листинге 2.13. Чтобы получить информацию о другом каталоге, передайте имя этого каталога сценарию в виде единственного аргумента командной строки.
Результаты
Листинг 2.13. Тестирование сценария formatdir
$ formatdir ~
Applications (0 entries)··············Classes (4KB)
DEMO (5 entries)······················Desktop (8 entries)
Documents (38 entries)················Incomplete (9 entries)
IntermediateHTML (3 entries)··········Library (38 entries)
Movies (1 entry)······················Music (1 entry)
NetInfo (9 entries)·················· Pictures (38 entries)
Public (1 entry)······················RedHat 7.2 (2.08GB)
Shared (4 entries)····················Synchronize! Volume ID (4KB)
X Desktop (4KB)······················ automatic-updates.txt (4KB)
bin (31 entries)······················cal-liability.tar.gz (104KB)
cbhma.tar.gz (376KB)··················errata (2 entries)
fire aliases (4KB)····················games (3 entries)
junk (4KB)····························leftside navbar (39 entries)
mail (2 entries)······················perinatal.org (0 entries)
scripts.old (46 entries)··············test.sh (4KB)
testfeatures.sh (4KB)················ topcheck (3 entries)
tweakmktargs.c (4KB)··················websites.tar.gz (18.85MB)
Усовершенствование сценария
С данным сценарием может возникнуть проблема, если в системе имеется пользователь, обожающий последовательности из трех «крышек» в именах файлов. Конечно, это весьма маловероятно — из 116 696 файлов в нашей тестовой системе Linux не нашлось ни одного, имя которого содержало хотя бы один символ крышки, — но если такое случится, вывод сценария окажется испорченным. Если вас волнует эта проблема, попробуйте преобразовывать пробелы в другую последовательность символов, еще менее вероятную в именах файлов. Четыре «крышки»? Пять?