सीपीएएन ब्राउज़ करते समय, मैं 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
ब्लॉक के प्रयोग करेंगे?
Acme नामस्थान। आप सैनिटी की उम्मीद क्यों कर रहे हैं? :) – Hugmeir
मैं व्यक्तिगत रूप से 'मेरे $ mod (कुंजी% INC) के लिए {अगली अगर $ mod! ~/^ SOAP /; ...} '। लूप अप फ्रंट के लिए मानदंड निर्दिष्ट करता है, और बोनस के रूप में इंडेंट के स्तर से बचाता है। – ikegami
@ हूगीर हाहा - यह एक बिल्कुल वैध जवाब है, आपको इसे प्रस्तुत करना चाहिए :) –