Ковыряюсь в чужом исходнике и напоролся на код:


Регулярное выражение я понимаю. А вот что такое 'just' while перед ним я не понимаю. И в документации найти не могу.

Так... кажется дошло.

Это чудо разворачивается в
$_ = 'just' while $d =~ s/.../.../;
Регулярка вернет true только на первом проходе (текст то в переменной меняется). Так что и зацикливания не происходит.
То есть 'just' while в данном случае это такой замаскированный NOP...
Теперь бы еще понять нафига он тут?

Не понял идею. Рефакторинг чего?

Обе эти строки выдадут одинаковый результат:
perl -e 'my $d = "123.456.789"; "just" while $d =~ s/(.*)\.(\d\d\d)/$1,$2/; print "$d\n"'
perl -e 'my $d = "123.456.789"; $d =~ s/(.*)\.(\d\d\d)/$1,$2/; print "$d\n"'

Я не вижу никакого смысла в использовании этой странной конструкции. Но в коде, рефакторингом которого я сейчас занимаюсь, подобные пакости встречаются практически каждый раз когда делается обработка переменной регекспом.
Вот я и начал сомневаться, может там есть какой-то сакральный смысл которого я не знаю? Может это остатки какого-то древнего диалекта в котором регекспы сами по себе не могли стоять?

Ой, прошу прощения. Понял.
Просто у меня тут сейчас везде "одноразовые" шаблоны, глаз замылился и я сначала не обратил внимание что в твоем примере шаблон "многоразовый".
Да, тогда это действительно похоже на правду.
Большое спасибо.

Вот такая пара строк выдаст одинаковый результат:

perl -e 'my $d = "123.456.789"; "just" while $d =~ s/(.*)\.(\d\d\d)/$1,$2/; print "$d\n"'
perl -e 'my $d = "123.456.789"; $d =~ s/(.*?)\.(\d\d\d)/$1,$2/g; print "$d\n"'