ременной $opt D. Параметры, анализируемые с помощью getopt, не являются логическими (то есть имеют конкретное значение).

Модуль Getopt:;Std также содержит функцию getopts, которая позволяет указать, является ли параметр логическим или принимает значение. Параметры со значениями (такие, как параметр -о программы gcc) обозначаются двоеточием, как это сделано в следующем фрагменте:

use Getopt::Std; getoptsCo:"), if ($opt o) {

print "Writing output to $opt o";

Обе функции, getopt и getopts, могут получать второй аргумент - ссылку на хэш. При наличии второго аргумента значения вместо переменных $opt X сохраняются в $hash{X}:

use Getopt::Std;

%option = (); getopts("Do:", \%option);

If ($option{D}) {

print "Debugging mode enabled.\n";

# Если параметр -о не задан, направить результаты в -". » Открытие "-" для записи означает STDOUT $option{o} = "-" unless defined $option{o};

print "Writing output to file $option{o}\n" unless $option{o} eq "-"; open(STDOUT, "> $option{o}")

or die "Cant open $option{o} for output- $!\n";

Некоторые параметры программы могут задаваться целыми словами вместо отдельных символов. Обычно они имеют специальный префикс - двойной дефис:

% gnutar --extract --file latest.tar

Значение параметра -file также может быть задано с помощью знака равенства: % gnutar --extract --file=latest.tar

Функция GetOptions модуля Getopt::Long анализирует эту категорию параметров. Она получает хэш, ключи которого определяют параметры, а значения представляют собой ссылки на скалярные переменные:

use Getopt::Long;

GetOptions( "extract" => \$extract, "file=s" => \$file );

If (Sextract) {

print "Im extracting.\n";

15.2. Проверка интерактивного режима 525

die "I wish I had a file" unless defined $file; print "Working on the file $file\n";

Если ключ хэша содержит имя параметра, этот параметр является логическим. Соответствующей переменной присваивается false, если параметр не задан, или 1 в противном случае. Getopt::Long не ограничивается логическими параметрами и значениями Getopt::Std. Возможны следующие описания параметров:

Описание Значение Комментарий

!> Смотри также-

Документация по стандартным модулям getopt::Long и Getopt::Std; примеры ручного анализа аргументов встречаются в рецептах 1.5, 1.17, 6.22, 7.7, 8.19 и 15.12.

15.2. Проверка интерактивного режима

Проблема

Требуется узнать, была ли ваша программа запущена в интерактивном режиме или нет. Например, запуск пользователем из командного интерпретатора является интерактивным, а запуск из сгоп - нет.

Решение

Воспользуйтесь оператором -t для проверки STOIN и STDOUT:

sub I arn interactive {

return -t STDIN && -t STDOUT;

В POSIX-совместимых системах проверяются группы процессов:

use POSIX qw/getpgrp tcgetpgrp/;

sub I am interactive {

local .TTY; # local file handle

open(TTY, "/dev/tty") or die "cant open /dev/tty; $!"; my Stpgrp = tcgetpgrp(fileno(TTY)); my Spgrp = getpgrpO;

close TTY,

return ($tpgrp == $pgrp),

Комментарий

Оператор -t сообщает, соответствует ли файловый манипулятор или файл терминальному устройству (tty); такие устройства являются признаком интерактивного использования. Проверка сообщит лишь о том, была ли ваша программа перенаправлена. Если программа запущена из командного интерпретатора, при перенаправлении STDIN и STDOUT первая версия I am interactive возвращает false. При запуске из сгоп I ani interactive также возвращает false.

Второй вариант проверки сообщает, находится ли терминал в монопольном распоряжении программы. Программа, чей ввод и вывод был перенаправлен, все равно при желании может управлять своим терминалом, поэтому POSIX-версия I ani interactive возвращает true. Профамма, запущенная из сгоп, не имеет собственного терминала, поэтому I ani interactive возвратит false.

Какой бы вариант I ani interactive вы ни выбрали, он используется следующим образом;

while (1) {

if (I am interactive()) { print Prompt

Sline = <STDIN>,

last unless defined $line,

# Обработать $line

Или более наглядно:

sub prompt { print Prompt if I am interactive() } for (promptO Sline = <STDIN>, prompt()) {

# Обработать $line

!> Смотри также-

Документация по стандартному модулю POSIX. Оператор проверки файлов -t описан врег1ор{\).

15.3. Очистка экрана

Проблема

Требуется очистить экран.

Решение

Воспользуйтесь модулем Term;:Cap для посылки нужной последовательности символов. Скорость вывода терминала можно определить с помощью модуля