История изменений
Исправление 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. Писал это всё тот ещё быдлокодер и я бы не советовал «учиться» по такому примеру.