Perché utilizzare un blocco "do {} if" in Perl?

Question

Durante la navigazione in CPAN, mi sono imbattuto in un blocco di codice in this module che mi ha bloccato.

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

Perché sarebbe l'autore utilizzare un blocco do {} if al posto di un normale if blocco?

Answer 1

Perché ne hanno voglia. Non c'è una vera differenza. Perl ha una dozzina di modi per fare tutto. È solo il modo in cui è la lingua.

Answer 2

Perché in perl "C'è più di un modo per farlo"

Answer 3

A me, sembra un modo per sottolineare il codice all'interno più if rispetto alla condizione if stesso.

Answer 4

L'autore ha voluto utilizzare if se alla fine, ma deve essere alla fine di una dichiarazione non molti. Un do {} è una dichiarazione, quindi funzionerà.

Personalmente, vorrei usare un'istruzione if, ma è una questione di gusti se l'enfasi dovrebbe essere sull'azione o sulla condizione. In questo caso l'autore ha scelto di sottolineare l'azione.

Answer 5

Una differenza è che do { ... } restituisce un valore, mentre l'istruzione if non (anche se vedere i commenti qui sotto.)

Esempio:

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

Si può realizzare quasi la stessa cosa con il ternario operatore, sebbene non sia possibile eseguire istruzioni di sequenza all'interno dei rami dell'operatore ternario.