gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 13:24:25 24 4
gpt4 key购买 nike

在浏览 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堵塞?

最佳答案

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

关于perl - 为什么在 Perl 中使用 "do {} if" block ?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8131317/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com