$ dir = ~ s / __ math_eqn __ / $ fun -> {'VAR'} {'math_eqn'} / g;делать в Perl

Question

Что делает эта команда?Я знаю, что это для замены, но так как я не знаю оператора, я запутался.

$dir =~ s/__math_eqn__/$fun->{'VAR'}{'math_eqn'}/g;

Answer 1

Выполняется глобальная замена в строке $dir.Подстрока __math_eqn__ заменяется хеш-значением $fun->{VAR}{math_eqn} (где $fun - ссылка на хеш), например:

my $fun = {
    VAR => { math_eqn => "2 + 2 = 4" }
};
my $dir = "This is the example equation: __math_eqn__,  and "
  . " here is the equation once more: __math_eqn__";
$dir =~ s/__math_eqn__/$fun->{'VAR'}{'math_eqn'}/g;
say $dir;

Вывод :

This is the example equation: 2 + 2 = 4,  and  here is the equation once more: 2 + 2 = 4

См. perldoc perlref и perldoc perldsc для получения дополнительной информации.