perl - 为什么在 Perl 中使用 "do {} if" block ？

Question

在浏览 CPAN 时，我在 this module 中遇到了一段代码。这难倒了我。

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

因为他们喜欢。没有真正的区别。 Perl 有十几种方法可以做任何事情。这只是语言的方式。