230 Глава 6 • Поиск по шаблону Пример 6.14 (продолжение)

use vars qw($Me SErrors $Grand Total $Mult %Compress SMatches);

my (Smatcher, $opt); # matcher - анонимная функция

# для поиска совпадений

й opt - ссылка на хэш, содержащий

# параметры командной строки

initO; й Инициализировать глобальные переменные

($opt, Smatcher) = parse args(); # Получить параметры командной строки

# и шаблоны

matchfile($opt, Smatcher, @ARGV); # Обработать файлы

exit(2) if SErrors; exit(O) if $Grand Total; exit(1);

ппптшптишпшпитпшпш sub init {

($Me = $0) =~ s!.*/!!; Й Получить базовое имя программы, "tcgrep"

SErrors = $Grand Total = 0; U Инициализировать глобальные счетчики SMult = ""; й Флаг для нескольких файлов в @ARGV

SI = 1; й Автоматическая очистка выходного буфера

%Compress = ( й Расширения и имена программ

2 => gzcat, # для распаковки

gz => gzcat,

Z => zcaf,

#((й#й»йй»»»#й#»#»###«й#йй##ййй«#ййй

sub usage {

die «E0F usage; $Me [flags] [files]

Standard grep options;

1 case insensitive

n number lines

с give count of lines matching

С ditto, but >1 match per line possible

w word boundaries only

s silent mode

X exact matches only

V invert search sense (lines that DONT match)

h hide filenames

e expression (for exprs beginning with -)

f file with expressions 1 list filenames matching

Specials:

1 1 match per file

H highlight matches

u underline matches

r recursive on directories or dot if none

t process directories in Is -f order

p paragraph mode (default: line mode)

P ditto, but specify separator, e.g. -P %%\\n

a all files, not just plain text files

q quiet about failed file and dir opens

T trace files as opened

May use a TCGREP environment variable to set default options.

#####«#######((#############«###((###

sub parse args { use Getopt;:Std;

my (Soptstring, $zeros, $nulls, %opt, Spattern, patterns, $match code); my ($S0, $SE);

if ($ = $ENV{TCGREP}) { Й Получить переменную окружения TCGREP

s/"(["\-])/-$V; tt Если начальный - отсутствует, добавить

unshift(@ARGV, $ ): » Включить строку TCGREP в @ARGV

Soptstring = "incCwsxvhe:f:11HurtpP:aqT";

Szeros = inCwxvhelut; « Параметры, инициализируемые О

# (для отмены предупреждений)

Snulls = рР; # Параметры, инициализируемые ""

й (для отмены предупреждений)

@opt{ split , Szeros } = ( О ) х length($zeros); @opt{ split , Snulls } = ( ) X length($nulls);

getopts(Soptstring, \%opt) or usageO;

if (Sopt{f}) { # -f файл с шаблонами

open(PATFILE, Sopt{f}) or die qq(SMe: Cant open Soptlf}: S!);

и Проверить каждый шаблон в файле while ( defined(Spattern = <PATFILE>) ) {

232 Глава 6 • Поиск по шаблону Пример 6.14 (продолжение)

chomp Spattern,

eval { foo =~ /Spattern/, 1 } or

die "$Me: $opt{f}-$.. bad pattern: $@"; push ©patterns, Spattern;

close PATFILE;

else { # Проверить шаблон

Spattern = $opt{e} shift(@ARGV) usage(); eval { foo =~ /Spattern/, 1 } or

die "SMe: bad pattern: $©"; ©patterns = (Spattern);

if ($opt{H} II $opt{u}) { # Выделить или подчеркнуть my Sterm = $ENV{TERM) vtlOO; my Sterminal;

eval { Я Попытаться найти служебные

й последовательности для выделения require POSIX; # или подчеркнуть через TermСар

use Term;:Сар;

my Stermios = POSIX:;Termios->new();

$termios->getattr;

my Sospeed = $termios->getospeed;

Sterminal = Tgetent Term:-Cap { TERM=>undef, OSPEED=>Sospeed )

unless ($@) { # Если успешно, получить служебные

# последовательности для выделения (-Н) local $"W =0; п или подчеркивания (-и)

($80, $SE) = $opt{H}

? ($terminal->Tputs(so), $terfflinal->Tputs(se)) : ($terminal->Tputs(us), $terminal->Tputs(ue));

else { # Если попытка использования Term::Cap

(t заканчивается неудачей, получить ($S0, $SE) = $opt<H} # служебные последовательности

# командой tput

(tput -Т Sterm smso, tput -T Sterm rmso) : (tput -T Sterm smul, tput -T Sterm rmul)

if ($opt{i}) {

©patterns = map {"(i)$ ") ©patterns;