Замена: оценка замены - PullRequest
Новая
       28

Замена: оценка замены

12 голосов
/ 20 апреля 2019

Является ли первое и второе замещение эквивалентными, если замена передается в переменной? 

#!/usr/bin/env perl6
use v6;

my $foo = 'switch';
my $t1 = my $t2 = my $t3 = my $t4 = 'this has a $foo in it';

my $replace = prompt( ':' ); # $0

$t1.=subst( / ( \$ \w+ ) /, $replace );
$t2.=subst( / ( \$ \w+ ) /, { $replace } );
$t3.=subst( / ( \$ \w+ ) /, { $replace.EVAL } );
$t4.=subst( / ( \$ \w+ ) /, { ( $replace.EVAL ).EVAL } );

say "T1 : $t1";
say "T2 : $t2";
say "T3 : $t3";
say "T4 : $t4";

# T1 : this has a $0 in it
# T2 : this has a $0 in it
# T3 : this has a $foo in it
# T4 : this has a switch in it

1 Ответ

9 голосов
/ 20 апреля 2019

Единственная разница между $replace и {$replace} заключается в том, что второй является блоком, который возвращает значение переменной.Это только добавляет уровень косвенности, но результат тот же. Обновление : отредактировано в соответствии с комментариями @ raiph.

...