LINUX.ORG.RU

История изменений

Исправление shell-script, (текущая версия) :

Плохо читал. Все твои вопросы на данный момент возникли из-за незнания простейшего синтаксиса языка. Тут нет даже каких-то хитрых конструкций.

for ($i=1;$i<=$#perem;$i++)

Массив @perem перебирается по порядку, начиная с элемента с номером 1 и заканчивая последним. Собственно $#perem - количество элементов массива начиная с нуля.

if($user!~/fdc|ggf|gfgfg|hgyh|hththt/)

Если в строке $user не присутствует подстроки fdc, ggf и так далее, то условие верно.

$pr=param('pg')=~/^(cent|als|grs|exam|pro|ist)$/;

Если результат функции param() с аргументом pg возвращает строку cent или als, или grs и т.д., то переменная $pg true, иначе false. Функция param(), судя по всему из модуля CGI.

if($db->numrows && !$pr )

$db - это, видимо, запрос к базе, а метод numrows, похоже, возвращает количество строк в ответе на этот запрос. Собственно, условие звучит так: если ответ базы не нулевой и переменная $pr == false.

В общем, два вывода.

1. Ничего ты не читал и даже не пытался разобраться, потому как всё это базовый синтаксис перла, доступный после прочтения десятка простейших примеров с пояснениями. Никакого волшебства.

2. Писал это всё тот ещё быдлокодер и я бы не советовал «учиться» по такому примеру.

Исходная версия shell-script, :

Плохо читал. Все твои вопросы на данный момент возникли из-за незнания простейшего синтаксиса языка. Тут нет даже каких-то хитрых конструкций.

for ($i=1;$i<=$#perem;$i++)

Массив @perem перебирается по порядку, начиная с элемента с номером 1 и заканчивая последним. Собственно $#perem - количество элементов массива начиная с нуля.

if($user!~/fdc|ggf|gfgfg|hgyh|hththt/)

Если в строке $user не присутствует подстроки fdc, ggf и так далее, то условие верно.

$pr=param('pg')=~/^(cent|als|grs|exam|pro|ist)$/;

Если функция результат функции param() с аргументом pg возвращает строку cent или als, или grs и т.д., то переменная $pg true, иначе false. Функция param(), судя по всему из модуля CGI.

if($db->numrows && !$pr )

$db - это, видимо, запрос к базе, а метод numrows, похоже, возвращает количество строк в ответе на этот запрос. Собственно, условие звучит так: если ответ базы не нулевой и переменная $pr == false.

В общем, два вывода.

1. Ничего ты не читал и даже не пытался разобраться, потому как всё это базовый синтаксис перла, доступный после прочтения десятка простейших примеров с пояснениями. Никакого волшебства.

2. Писал это всё тот ещё быдлокодер и я бы не советовал «учиться» по такому примеру.