Искусство программирования на языке сценариев командной оболочки, Купер Мендель

Искусство программирования на языке сценариев командной оболочки

на обложку

Купер Мендель

Шрифт:

ARGS=2

E_WRONGARGS=65

if [ $# -ne "$ARGS" ] # Проверка числа аргументов.

then

echo "Порядок использования: `basename $0` имя_файла номер_столбца"

exit $E_WRONGARGS

filename=$1

column_number=$2

# Здесь используется прием передачи переменных

# из командной оболочки в сценарий awk .

# Многострочный сценарий awk должен записываться

в виде: awk ' ..... '

# Начало awk-сценария.

# -----------------------------

awk '

{ total += $'"${column_number}"'

}

END {

print total

}

' "$filename"

# -----------------------------

# Конец awk-сценария.

# С точки зрения безопасности, передача shell-переменных

# во встроенный awk-скрипт, потенциально опасна,

# поэтому, Stephane Chazelas предлагает следующую альтернативу:

# ---------------------------------------

# awk -v column_number="$column_number" '

# { total += $column_number

# }

# END {

# print total

# }' "$filename"

# ---------------------------------------

exit 0

Для сценариев, которые должны строиться по принципу швейцарского армейского ножа -- "все в одном", можно порекомендовать Perl. Perl совмещает в себе мощь и гибкость sed, awk и языка программирования C. Он поддерживает модульность и объектно-ориентированный стиль программирования. Короткие сценарии Perl могут легко встраиваться в сценарии командной оболочки, и даже полностью заменить из (хотя автор весьма скептически относится к последнему утверждению).

Пример 33-4. Сценарий на языке Perl, встроенный в Bash-скрипт

#!/bin/bash

# Это команды shell, предшествующий сценарию на Perl.

echo "Эта строка выводится средствами Bash, перед выполнением встроенного Perl-скрипта, в \"$0\"."

echo "=============================================================================================="

perl -e 'print "Эта строка выводится средствами Perl.\n";'

# Подобно sed, Perl тоже использует ключ "-e".

echo "====================================="

exit 0

Допускается даже комбинирование сценариев на Bash и на Perl, в пределах одного файла. В зависимости от того, какая часть сценария должна исполняться, сценарий вызывается с указанием требуемого интерпретатора.

Пример 33-5. Комбинирование сценария Bash и Perl в одном файле

#!/bin/bash

# bashandperl.sh

echo "Вас приветствует часть сценария, написанная на Bash."

# Далее могут следовать другие команды Bash.

exit 0

Конец сценария на Bash.

# =======================================================

#!/usr/bin/perl

# Эта часть сценария должна вызываться с ключом -x.

print "Вас приветствует часть сценария, написанная на Perl.\n";

# Далее могут следовать другие команды Perl.

# Конец сценария на Perl.

bash$ bash bashandperl.sh

Вас приветствует часть сценария, написанная на Bash.

bash$ perl -x bashandperl.sh

Вас приветствует часть сценария, написанная на Perl.

33.3. Операции сравнения: Альтернативные решения

Операции сравнения, выполняемые с помощью конструкции [[ ]], могут оказаться предпочтительнее, чем [ ]. Аналогично, при сравнении чисел, в более выгодном свете представляется конструкция .

a=8

# Все, приведенные ниже, операции сравнения -- эквивалентны.

test "$a" -lt 16 && echo "да, $a < 16" # "И-список"

/bin/test "$a" -lt 16 && echo "да, $a < 16"

[ "$a" -lt 16 ] && echo "да, $a < 16"

[[ $a -lt 16 ]] && echo "да, $a < 16" # Внутри [[ ]] и переменные

(( a < 16 )) && echo "да, $a < 16" # не обязательно брать в кавычки.

city="New York"

# Опять же, все, приведенные ниже, операции -- эквивалентны.

test "$city" \< Paris && echo "Да, Paris больше, чем $city" # В смысле ASCII-строк.

/bin/test "$city" \< Paris && echo "Да, Paris больше, чем $city"

[ "$city" \< Paris ] && echo "Да, Paris больше, чем $city"