Why use the "do {} if" block in Perl?

Question

While watching CPAN, I came across a block of code in this module that puzzled me.

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

Why did the author use a block do {} ifinstead of a regular ifblock?

Answer 1

One difference is that it do { ... }returns a value, while the if statement does not (although see the comments below).

eg:.

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

You can do almost the same with the ternary operator, although you cannot order statements inside the branches of the ternary operator.

Answer 2

. . Perl . .

Answer 3

, if , if.

Answer 4

if, , . A do {} - , .

if, , , . .

Answer 5

perl " "