Main(); Sub f2 { my $t1 = 0;

Question

Modern::Perl

Main(); Sub f2 { my $t1 = 0;

sub f3 {
print "f3: ", $t1, "\n";
$t1 ++;
};

f3();
}

sub main {
foreach ( 1 .. 10 ) {
f2();
}
} Что покажется на экране?

#perl #programming #russian

0

27.09.2023

6 ответов

13 просмотров

Sergei Zhmylove

А всё потому что это питоновский стиль. В перле в этом месте юзают анонимные функции: main(); sub f2 { my $t1 = 0; sub { print "f3: ", $t1, "\n"; $t1 ++; } ->(); } sub main { foreach ( 1 .. 10 ) { f2(); } }

0

27.09.2023

Alexander

Sergei Zhmylove
А всё потому что это питоновский стиль. В перле в ...

У тебя анонимная sub в f2 будет при каждом вызове пересоздаваться. Замыкания не получится

0

27.09.2023

Sergei Zhmylove

Alexander
У тебя анонимная sub в f2 будет при каждом вызове ...

Что значит не получится? А ноль тогда откуда берётся?

0

27.09.2023