можно ещё наплюнуть на приличия и применить
флип-флоп оператор троеточие: A
... B
выглядеть это будет так:
1.
2.
chk ... fmt for $string, $phone;
print $phone;
на первом проходе оператор
for отдаст в тело цикла
$string , поместив ссылку на последнюю в переменную
$_ .
Флип-флоп первым делом дёрнет chk();
если chk() после вернёт true, то флип-флоп сработает, запомнит состояние и возвратится, приготовившись на следующем вызове дёрнуть fmt(), не трогая больше chk().
на втором проходе оператор
for отдаст в тело цикла
$phone , поместив ссылку на последнюю в переменную
$_ .
запомнивший своё состояние флип-флоп дёрнет fmt(), что нам и требовалось.
если же, например, chk() на первом проходе решит, что совпадения с шаблоном не было, тогда chk() может вызвать оператор last и вывалиться нах из цикла for.
реализация:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
sub chk (_) {
print "Inside chk: arg=$_\n";
/^\d+/ ? 1 : last;
}
sub fmt(_) {
print "Inside fmt:arg=$_\n";
s/(\d+)/$1*$1/e;
}
1.
2.
3.
4.
$string = 11;
$phone = 3;
chk ... fmt for $string, $phone;
print "Result = $phone\n";
Inside chk:arg=11
Inside fmt:arg=3
Result = 9
а при вызове:
1.
2.
3.
4.
$string = "эх-ма";
$phone = 3;
chk ... fmt for $string, $phone;
print "Result = $phone\n";
Inside chk:arg=эх-ма
Result = 3
