If ($opt{p} II $opt{P}) {

patterns = map patterns;

$opt{p} && ($/ = );

$opt{P} && ($/ = eval(qqC$opt{P}-))); # for -P •%%\n $opt{w} && (patterns = map {\b . $ . ЛЬ} patterns); $opt{x} && (©patterns = map {""S.VS"} ©patterns); If (@ARGV) {

$Mult = 1 If ($opt{r} 11 (@ARGV > 1) II -d $ARGV[0]) && !$opt{h},

$opt{1} += $opt{l}; # Единица и буква 1

$opt{H} += $opt{u}; $opt{c> += $opt{C}; SoptCs} += $opt{c);

$opt{1} += $opt{-s} && !$opt{c}, # Единица

@ARGV = ($opt{r} . : -) unless @ARGV;

$opt{r) = 1 If i$opt<r} && grep(-d, @ARGV) == @ARGV;

$match code = ;

$match code = study; if ©patterns > 5; # Может немного

# ускорить работу

foreach (patterns) { s(/)(\\/)g }

If ($opt{H}) {

foreach Spattern (patterns) {

$match code = "XSMatches += s/(Spattern)/S<S0}\$1${SE>/g, ;

elsif ($opt{v}) {

foreach Spattern (©patterns) {

Smatch code .= "\SMatches += !/Spattern/,;

>

elsif (Sopt{C>) i

foreach Spattern (patterns) {

Smatch code = \SMatches++ while /Spattern/g;";

else {

foreach Spattern (patterns) {

$fflatch code = "\SMatches++ if /Spattern/;";

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

Smatcher = eval "sub { $match code }"; die if $@;

return (\%opt, Smatcher);

«#«####«#####«####################«

sub matchfile {

Sopt = shift; Й Ссылка на хэш параметров

Smatcher = shift; й Ссылка на функцию поиска совпадений

ту (Sfile. ©list, Stotal, Sname);

local($ );

Stotal = 0;

FILE: while (defined (Sfile = shift(© ))) <

if (-d Sfile) {

if (-1 Sfile && ©ARGV != 1) {

warn "SMe: \"$file\" is a symlink to a directory\n"

if $opt->{T}; next FILE;

if (!$opt->{r}) {

warn "SMe; \"$file\" is a directory, but no -r given\n"

if $opt->{T}; next FILE;

unless (opendir(DIR, Sfile)) { unless ($opt->{q}) {

warn "SMe: cant opendir Sfile: S!\n"; $Errors++;

next FILE;

©list = 0;

for (readdir(DIR)) {

push(©list, "$file/$ ") unless /"\.(1,2}$/;

closedir(DIR); if ($opt->{t}) { my (©dates);

for (©list) { push(©dates, -M) }

©list = @list[sort { $dates[Sa] <=> Sdates[$b] } 0..Sedates];

else <

©list = sort ©list;

matchfile($opt, Smatcher, @list); й process files next FILE;

if (Sfile eq -) {

warn "SMe: reading from stdin\n" if -t STDIN && !Sopt->{q}; Sname = <STDIN>;

else {

Sname = Sfile; unless (-e Sfile) {

warn qq($Me: file "Sfile" does not exist\n)

unless Sopt->{q}; SErrors++; next FILE;

unless (-f Sfile $opt->{a}) {

warn qq(SMe: skipping non-plain file "Sfile"\n)

if Sopt->{T}; next FILE;

my (Sext) = Sfile =" /\.([".]+)S/; if (defined Sext && exists SCompress{Sext}) { Sfile = "SCompress{Sext} <Sfile 1";

elsif (! (-T Sfile $opt->{a})) {

warn qq($Me: skipping binary file "Sfile"\n) if Sopt->{T}; next FILE;

warn "SMe: checking Sfile\n" if Sopt->{T};

unless (open(FILE, Sfile)) { unless ($opt->{q}) {

warn "SMe; Sfile: S!\n"; SErrors++;

next FILE;

Stotal = 0;

SMatches = 0;

LINE: while (<FILE>) { SMatches = 0;