If($user!~/регул.выражение/) - как объясняется это условие?

@VladimirVinokur · Регистрация: 30.08.2013

Студворк — интернет-сервис помощи студентам

Сооздал тему для тупых вопросов! потому как начал изучать перл, и многие вещи мне не понятны.
Вопрос1: if($user!~/регул.выражение/) - как объясняется это условие?
Вопрос2: my $var - как действует эта my для переменных?
Вопрос3: if($db->numrows && !$students ) - как объясняется это условие?
Вопрос4: for(param('pig')) {} -что это за for такой? вроде же цикл но условие не понятно мне.
Вопрос5: есть человек который может помочь разобраться в большом файле что? куда? откуда?

Добавлено через 1 час 14 минут
на Вопрос1: ответ найден!

@bidstrup · 14.05.2019, 12:13

Строго говоря, мой пример выше тоже неудачный, поскольку остаётся непонятным, зачем тут использовать
именно local, а не, например, my. ( и об этом же написал Breetonia )

Вот так уже понятнее зачем

Perl
1
2
3
4
5
6
7
8
our $buf;
 
{ 
  local $/ = undef;
  $buf = readline;
}
 
print $buf;

потому что сказать my $/ = undef нельзя.

@nullxdth · 14.05.2019, 12:23

Сообщение от bidstrup

Вот так уже понятнее зачем

Сообщение от bidstrup

потому что сказать my $/ = undef нельзя.

Пример ещё хуже. Это какие-то частные случаи Perl-а, которые не имеют отношение к сути динамического связывания. И никак не дают понять, для чего можно их использовать и как это работает.

@bidstrup · 14.05.2019, 12:32

Сообщение от nullxdth

Пример ещё хуже. Это какие-то частные случаи Perl-а

Частные случаи Perl??
Ты не забыл, мы про Perl тут и разговариваем, а не про Lisp.

Сообщение от nullxdth

. И никак не дают понять, для чего можно их использовать и как это работает.

Всё с точностью до наоборот.
Я показал классический способ использования local по отношению к глобальной переменной $/,
которую пользует библиотечная функция readline. По выходу из лексической области видимости
$/ восстанавливается. И my тут использовать не получится.

@nullxdth · 14.05.2019, 12:37

Сообщение от bidstrup

Частные случаи Perl??

Именно.

Сообщение от bidstrup

Ты не забыл, мы про Perl тут и разговариваем, а не про Lisp.

Я тут про динамические связывания говорил, а это общая концепция.

Сообщение от bidstrup

Всё с точностью до наоборот.
Я показал классический способ использовани

Из разряда: my воткнуть не получается, давайте воткнём local, авось заработает

Вся суть Perl фанбоев - им не нужна суть вещей и как использовать те или иные вещи. Только хаки, только бы сделать абы как

Поэтому и говорю:

Сообщение от nullxdth

Dynamic scoping в Perl пришёл из Lisp, но в отличие от последнего редко используется perl-кодерами (вероятно, ввиду низкой образованности основной массы perl-овиков).

@bidstrup · 14.05.2019, 12:49

nullxdth, жёлтые кружочки, 'пафос', 'фанбоев' и прочие обобщения оставь, pls, для своих экзерсисов в 'Священных войнах'. Здесь же ты пока абсолютно не справляешься с темой и приводишь неудачные ( по твоему же собственному признанию ) примеры использования local.

@nullxdth · 14.05.2019, 12:57

Сообщение от bidstrup

Здесь же ты пока абсолютно не справляешься с темой и приводишь неудачные ( по твоему же собственному признанию ) примеры использования local.

Ну куда уж мне до твоих-то примеров

Ты вместо того, чтоб бесполезно возмущаться, книги почитай - скилл подтяни. А то так и останешься на уровне "классических способов использования в Perl"

@bidstrup · 14.05.2019, 13:07

Так покажи свой подтянутый 'скилл'. Приведи адекватный 'скиллу' пример.

И можешь не спешить, подумай, полистай те же книги. Я до пятницы совершенно свободен.

@nullxdth · 14.05.2019, 13:11

Сообщение от bidstrup

Так покажи свой подтянутый 'скилл'. Приведи адекватный 'скиллу' пример.

Зачем бы мне это нужно было? Я вон элементарный пример с map-ом написал, так ведь ты и его не понял.

@bidstrup · 14.05.2019, 13:18

Элементарный пример с map-ом ты сам признал неудачным.

Добавлено через 4 минуты
"Я вон элементарный пример с map-ом написал, так ведь ты и его не понял"

Навеяло:

Н.НосовС тех пор Незнайка перестал играть на трубе.
— Моей музыки не понимают, — говорил он. — Ещё не доросли до моей музыки.

@nullxdth · 14.05.2019, 14:43

Сообщение от bidstrup

Элементарный пример с map-ом ты сам признал неудачным.

Он неудачен исключительно лишь по причине, что связывание $arg не имеет на практике смысла, для единственного аргумента используется $_. Ну и map есть в стандартной библиотеке.
Вот более удачный и идиоматичный пример использования динамический связываний с т.з. Perl:

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
sub fold(&$@) {
 
    my ($fn, $x, @xs) = @_;
    my ($y, @ys) = @xs;
 
    local $a = @ys ? fold($fn, $x, @ys) : $x;
    local $b = $y;
 
    $fn->($a, $b);
};
 
# fold {$a + $b} 0, (1..3)  ==  fold {$_[0] + $_[1]} 0, (1..3)
# fold {$a * $b} 1, (1..3)  ==  fold {$_[0] + $_[1]] 1, (1..3)

Ну что толку касательно тебя. Ты не понял тот пример - не поймёшь и этот. Ну может кто читать будет компетентнее - будет полезно.

@bidstrup · 14.05.2019, 19:30

Сообщение от nullxdth

Ну что толку касательно тебя. Ты не понял тот пример - не поймёшь и этот.

Попробуй вспомнить, что я тебе рассказывал про привычку священно воевать.

Теперь по вновь приведённому коду:
Убираем local

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
sub fold(&$@) {
 
    my ($fn, $x, @xs) = @_;
    my ($y, @ys) = @xs;
 
    $a = @ys ? fold($fn, $x, @ys) : $x;
    $b = $y;
 
    $fn->($a, $b);
};
 
# fold {$a + $b} 0, (1..3)  ==  fold {$_[0] + $_[1]} 0, (1..3)
# fold {$a * $b} 1, (1..3)  ==  fold {$_[0] + $_[1]] 1, (1..3)

И получаем тот же результат. Что понятно. Точнее, мне понятно.
А почему тебе непонятно?

Переменные $a и $b изменили своё значение ? Ясен пень, изменили.

И если обьявить их с помощью local, то они первоначальное значение, ясен пень, восстановят.
Но чтобы продемонстрировать данный эффект достаточно простого примера, который я уже приводил

Perl
1
2
3
4
$a =1; $b = 2;
{ local ($a,$b) = 100,200; }  
 
print "$a $b";

Output: 1 2

@nullxdth · 14.05.2019, 19:50

Сообщение от bidstrup

Но чтобы продемонстрировать данный эффект

С эффектом мы вроде разобрались в предыдущих постах. Ты же ныл привести хороший пример использования. Я - привёл.

Добавлено через 2 минуты

Сообщение от bidstrup

И получаем тот же результат.

Действительно! В первом случае с динамическими связываниями написан безопасный код без side effect-ов. Во втором случае петушатся значения глобальных переменных $a и $b. Никакой разницы!

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@VladimirVinokur 2 / 2 / 0 Регистрация: 30.08.2013 Сообщений: 26

	If($user!~/регул.выражение/) - как объясняется это условие? 02.09.2013, 05:05. Показов 4083. Ответов 31 Метки нет (Все метки) Сооздал тему для тупых вопросов! потому как начал изучать перл, и многие вещи мне не понятны. Вопрос1: if($user!~/регул.выражение/) - как объясняется это условие? Вопрос2: my $var - как действует эта my для переменных? Вопрос3: if($db->numrows && !$students ) - как объясняется это условие? Вопрос4: for(param('pig')) {} -что это за for такой? вроде же цикл но условие не понятно мне. Вопрос5: есть человек который может помочь разобраться в большом файле что? куда? откуда? Добавлено через 1 час 14 минут на Вопрос1: ответ найден! 0

@bidstrup 419 / 179 / 27 Регистрация: 11.03.2018 Сообщений: 771
	14.05.2019, 12:49
	nullxdth, жёлтые кружочки, 'пафос', 'фанбоев' и прочие обобщения оставь, pls, для своих экзерсисов в 'Священных войнах'. Здесь же ты пока абсолютно не справляешься с темой и приводишь неудачные ( по твоему же собственному признанию ) примеры использования local. 0

@bidstrup 419 / 179 / 27 Регистрация: 11.03.2018 Сообщений: 771
	14.05.2019, 13:07
	Так покажи свой подтянутый 'скилл'. Приведи адекватный 'скиллу' пример. И можешь не спешить, подумай, полистай те же книги. Я до пятницы совершенно свободен. 0