ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Я может не совсем тебя понял, но это обычные вызовы обычных функций

Это ясно вопрос в следующим эти функци стандартные или они должны быть гдето описанны есле описанны то как искать их описание? И еще вопрос сверху: на сервер есть некоторая папка scripts в ней файлы
1.pl 2.pl 3.pl есле пишу scripts\2.pl есле scripts\2.pl то вылетает некотарая стриница причем скрипт явно не выполняектся. Возможен ли такой варинт что не дает мне доступ к скрипту некий сскрипт типа index.pl который скажим провеояет меня по ip?

else { $ErrMsg="Логин $FORM{'login'} не зарегистрирован."; StartHTML(); login_form(); finish_doc() }

ну начнем с того, что перед фигурной скобкой в конце пропущено ";"

что уже не даст выполнится скрипту корректно. Просто у тебя отключено отображение ошибок, по всей видимости

Насамом деле код не мой мне надо с ним тока разобратся. С ; в конце тоже не очень понятно но ошибка не вылезает. Тока вопрос остается темже StartHTML(); login_form(); finish_doc() стандартные это функции или нет. И плюс для кучи еще вопрос. В коде часто встречатся строчко $FORM{'login'} $FORM{'user'} $FORM{'pass'} и т д, так вот немогу понять из за не знание perl что это толком значит я так понимаю это просто присваивание значение переменной char? И какой смысл тогда имет такая строчка if($FORM{'login'})

А что непонятного с точкой с запятой? Все операторы перла разделяются этим знаком, и неважно, в одну строку записан скрипт или в несколько.
Это вызовы подпрограмм. Их код ищите или в текущем файле, или смотрите, какие пакеты подключены в начале скрипта оператором use. Этими функциями, если судить по названиям, формируется веб-страница
В перле существует такой термин как ассоциативные массивы (хэши). В данном случае описывается хэш %FORM и идет обращение к его полям login, user и pass. Хэш, судя по всему, формируется какой-либо веб-формой, и после нажатия на submit происходит его заполнение.
Строка
означает проверку, пустой логин ввел юзер или нет. Все, что внутри оператора if, выполнится только, если логин был введен.

В PERL символ ";" - это разделитель между выражениями языка, а не символ их окончания, поэтому отсутствие его в конце блока кода - не ошибка.

Спасибо за ответы

2 Digimortal:

Да я уже понял, раздел с php перепутал. Сорри

Регулярка, нужна помощь, срочно оч...

abbreviate
v. 1 shorten, compress, contract, truncate, trim, reduce,
curtail: We abbreviated some of the longer words to save space.
2 shorten, cut, condense, abridge, abstract, digest, epitomize,
summarize, US synopsize: The school presented an abbreviated
version of A Midsummer Night's Dream.

Есть куча текста такого вида, нужно удалить все предложения(примеры).
В этой ситуации это:
: The school presented an abbreviated
version of A Midsummer Night's Dream.
Все примеры начинаются с : и заканчиваются .
Вот мои не рабочие варианты:
s/: (.*)//ig;
s/: (.*) \.//ig;
s/: (.*) \n \.//ig;
s/: (.*) \n (.*) \.//ig;
Помогите пожалуйста!