# найди ошибку В перле вообще всё плохо. Как вы думаете, что

Question

Modern::Perl

# найди ошибку В перле вообще всё плохо. Как вы думаете, что

делает такой код?

my $var = 2;
sub foo ($arg) { $arg-- }
foo($var);
print $var;
Правильно, он не меняет внешнюю переменную. Об этом даже в perlsub написано: «There is a difference between the two ways of accessing the arguments: @_ aliases the arguments, but the signature variables get copies of the arguments. So writing to a signature variable only changes that variable, and has no effect on the caller's variables»

А такой?

my $str = "xxx2yyy";
my $var = $str =~ /(\d+)/ ? $1 : 6;
sub foo ($arg) { $arg-- }
foo($var);
print $var;
foo($var);
print $var;
Правильно, снова две двойки.
Раз мы уже точно понимаем, что $arg локален внутри функций, о слава сигнатурам, давайте сравним ещё пару вариантов.

my $str = "xxx2yyy";
$str =~ /(\d+)/;
sub foo ($arg) { return sub { $arg-- }}
print foo($1)->();
print foo($1)->();
И этот:
my $str = "xxx2yyy";
sub parse { return foo($1) if $str =~ m/(\d+)/s }
sub foo ($arg) { return sub { $arg-- }}
my $sub = parse();
print $sub->();
print $sub->();