Size: a a a

2020 November 18

R

Rajesh in use Perl or die;
I got it now
источник

R

Rajesh in use Perl or die;
/dev/null
источник

AP

Anton Petrusevich in use Perl or die;
Sergey Zhmylove
Да ну, мне нравится, когда оно только в телефоне
Телегу можно в браузере - ставить на комп ничего не надо
источник
2020 November 19

АК

Алексей Клименко... in use Perl or die;
Если я не знаю / не хочу разбираться – что возвращает некоторая функция, но просто хочу вернуть её результат – я могу сделать
return func($x);
А если я желаю выполнить часть кода после её вызова, как написать?

Достаточно ли
my(@res) = func($x);
mystuff();
return @res;
или так будет другой контекст?
источник

IB

Ivan Bessarabov in use Perl or die;
Алексей Клименко
Если я не знаю / не хочу разбираться – что возвращает некоторая функция, но просто хочу вернуть её результат – я могу сделать
return func($x);
А если я желаю выполнить часть кода после её вызова, как написать?

Достаточно ли
my(@res) = func($x);
mystuff();
return @res;
или так будет другой контекст?
может быть другой
источник

DF

Denis F in use Perl or die;
с чего бы? Он же явно возвращает данные
источник

DF

Denis F in use Perl or die;
ну если только mystuff() их не модифицирует внутри
источник

IB

Ivan Bessarabov in use Perl or die;
источник

АК

Алексей Клименко... in use Perl or die;
А во что обернуть тогда? Или обязательно у себя контекст проверять?
источник

IB

Ivan Bessarabov in use Perl or die;
Алексей Клименко
А во что обернуть тогда? Или обязательно у себя контекст проверять?
wantarray в сабе использовать
источник

АК

Алексей Клименко... in use Perl or die;
А если всё что мне нужно – менять глобальный счётчик глубины рекурсивного вызова – мне хватит local ?
источник

IB

Ivan Bessarabov in use Perl or die;
почему он глобальный?
источник

IB

Ivan Bessarabov in use Perl or die;
прокидывай его в сабу
источник

SZ

Sergey Zhmylove in use Perl or die;
Алексей Клименко
Если я не знаю / не хочу разбираться – что возвращает некоторая функция, но просто хочу вернуть её результат – я могу сделать
return func($x);
А если я желаю выполнить часть кода после её вызова, как написать?

Достаточно ли
my(@res) = func($x);
mystuff();
return @res;
или так будет другой контекст?
Нет
источник

SZ

Sergey Zhmylove in use Perl or die;
Алексей Клименко
А если всё что мне нужно – менять глобальный счётчик глубины рекурсивного вызова – мне хватит local ?
Wut?
источник

АК

Алексей Клименко... in use Perl or die;
Ivan Bessarabov
прокидывай его в сабу
источник

SZ

Sergey Zhmylove in use Perl or die;
Ivan Bessarabov
wantarray в сабе использовать
Тоже не всегда будет работать, например, в integer context
источник

АК

Алексей Клименко... in use Perl or die;
Пока не то.

our $deep;

f_start();

sub f_start
{
 $deep = 0;
 say f_body();
}

sub f_body
{
 say $deep;
 if($deep>5){
   return -1;
 }
 {
   local $deep;
   $deep++;
   return f_body();
   $deep--;
 }
}
источник

SZ

Sergey Zhmylove in use Perl or die;
Алексей Клименко
Пока не то.

our $deep;

f_start();

sub f_start
{
 $deep = 0;
 say f_body();
}

sub f_body
{
 say $deep;
 if($deep>5){
   return -1;
 }
 {
   local $deep;
   $deep++;
   return f_body();
   $deep--;
 }
}
А в чем вопрос?
источник

АК

Алексей Клименко... in use Perl or die;
Sergey Zhmylove
А в чем вопрос?
Мне нужен декремент после рекурсивного вызова.
источник