Зачем использовать блок "do {} if" в Perl?

Question

Просматривая CPAN, я наткнулся на блок кода в этом модуле , который озадачил меня.

sub import {
  for my $mod (keys %INC) {
    do {
      delete $INC{$mod};
      $mod =~ s/\.pm$//; $mod =~ s/\//::/g;
      delete_package($mod);
    } if $mod =~ m/^SOAP/;
  }
}

Почему автор использовал бы блок do {} if вместо обычногоif блок?

Answer 1

Одно отличие состоит в том, что do { ... } возвращает значение, тогда как оператор if - нет (хотя см. Комментарии ниже.)

например:.

my $x = 3;
my $z = do { warn "in the do block"; 10 } if $x == 3;

Вы можете сделать почти то же самое с троичным оператором, хотя вы не можете упорядочить операторы внутри ветвей троичного оператора.

Answer 2

Потому что им это нравится.Там нет никакой разницы.У Perl есть дюжина способов сделать все.Это просто так, как язык.

Answer 3

Автор хотел использовать if в конце, но это должно быть в конце одного утверждения не много.do {} - это одно утверждение, так что оно сработает.

Лично я бы использовал утверждение if, но это вопрос вкуса, следует ли делать акцент на действии или условии.В этом случае автор решил подчеркнуть действие.

Answer 4

Мне кажется, это способ подчеркнуть код внутри на if больше, чем само условие if.

Answer 5

Потому что в perl "Существует более одного способа сделать это"