warn "Cant open $ARGV; $!\n"; next;

>

while (defined($ = <ARGV>)) { #...

Внутри цикла с помощью ARGV и $ARGV можно получить дополнительные данные или узнать имя текущего обрабатываемого файла. Давайте посмотрим, как это делается.

Общие принципы

Если пользователь не передает аргументы, Perl заносит в @ARGV единственную строку, -". Это сокращенное обозначение соответствует STDIN при открытии для чтения и STDOUT - для записи. Кроме того, пользователь может передать " -" в командной строке вместо имени файла для получения входных данных из STDIN.

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

При вызове open не используется форма open(ARGV, "> $ARGV"). Это позволяет добиться интересных эффектов - например, передать в качестве аргумента строку "gzip -de file.gz ", чтобы программа получила в качестве входных данных результаты команды "gzip -de file. gz". Такое применение open рассматривается в рецепте 16.15,

Массив @ARGV может изменяться перед циклом или внутри него. Предположим, вы хотите, чтобы при отсутствии аргументов входные данные читались не из STDIN, а из всех программных и заголовочных файлов С и С++. Вставьте следующую строку перед началом обработки <ARGV>:

©ARGV = glob("..[Cch]") unless ©ARGV;

Перед началом цикла следует обработать аргументы командной строки - либо с помощью модулей Getopt (см. главу 15 «Пользовательские интерфейсы»), либо вручную:

# Аргументы 1: Обработка необязательного флага -с if (©ARGV && $ARGV[0] eq -с) {

$chop first++; shift;

# Аргументы 2: Обработка необязательного флага -NUMBER if (@ARGV && $ARGV[0] = /"-(\d+)$/) {

Scolumns = $1; shift;

# Аргументы 3: Обработка сгруппированных флагов -а, -i -п, и -и while {©ARGV && $ARGV[0] =" /"-{+)/ & (shift, ($ = $1), 1)) { next if /"$/;

s/a && (++$append, redo);

s/i && (++$ignore ints, redo); s/n && (++$nostdout, redo); s/u && (++$unbuffer, redo); die "usage: $0 [-ainu] [filenames] ...\n";

>

Если не считать неявного перебора аргументов командной строки, <> не выделяется ничем особенным. Продолжают действовать все специальные переменные, управляющие процессом ввода/вывода (см. главу 8). Переменная $/ определяет разделитель записей, а $. содержит номер текущей строки (записи). Если $/ присваивается неопределенное значение, то при каждой операции чтения будет получено не объединенное содержимое всех файлов, а полное содержимое одного файла:

undef $/; while (о) {

# Теперь в $ находится полное содержимое файла,

# имя которого хранится в $AR6V

>

Если значение $/ локализовано, старое значение автоматически восстанавливается при выходе из блока:

{ # Блок для local

local $/; # Разделитель записей становится неопределенным while (О) {

# Сделать что-то; в вызываемых функциях

# значение $/ остается неопределенным

} # Восстановить $/

Поскольку при обработке <ARGV> файловые манипуляторы никогда не закрываются явно, номер записи $. не сбрасывается. Если вас это не устраивает, самостоятельно организуйте явное закрытие файлов для сброса $.:

while (о) {

print "$ARGV:$.:$ "; close AR6V if eof;

Функция eof проверяет достижение конца файла при последней операции чтения. Поскольку последнее чтение выполнялось через манипулятор ARGV, eof сообщает, что мы находимся в конце текущего файла. В этом случае файл закрывается, а переменная $. сбрасывается. С другой стороны, специальная запись eof () с круглыми скобками, но без аргументов проверяет достижение конца всех файлов при обработке <ARGV>.

256 Глава 7 • Доступ к файлам Параметры командной строки

В Perl предусмотрены специальные параметры командной строки -п, -р и -i, упрощающие написание фильтров и однострочных программ.

Параметр -п помещает исходный текст программы внутрь цикла while(<>). Обычно он используется в фильтрах типа grep или программах, которые накапливают статистику по прочитанным данным.

Пример 7.1. fmdloginl

#!/usr/bin/perl

# findlogini - вывести все строки, содержащие подстроку "login" while (о) { # Перебор файлов в командной строке

print if /login/;

>

Программу из примера 7.1 можно записать так, как показано в примере 7.2.

Пример 7.2. fmdloginZ

#!/usr/bin/perl -n

ft findlogin2 - вывести все строки, содержащие подстроку "login" print if /login/;

Параметр -n может объединяться с -е для выполнения кода Perl из командной строки:

% perl -ne print if /login/

Параметр -p аналогичен -n, однако он добавляет print в конец цикла. Обычно он используется в программах для преобразования входных данных.

Пример 7.3. lowercasel

»!/usr/bin/perl

# lowercase - преобразование всех строк в нижний регистр use locale;

while (о) { # Перебор в командной строке

s/(["\W0-9 ])/\l$1/g; # Перевод всех букв в нижний регистр print;

Программу из примера 7.3 можно записать так, как показано в примере 7.4. Пример 7.4. lowercaseZ

#!/usr/bin/perl -р

# lowercase - преобразование всех строк в нижний регистр use locale;

s/(["\W0-9 ])/\l$1/g; # Перевод всех букв в нижний регистр Или непосредственно в командной строке следующего вида; % perl -Mlocale -ре s/(["\W0-9 ])/\1$1/g