पर्ल का उपयोग करते हुए, यदि यह मौजूद है तो सिमलिंक को कैसे जांचें और हटाएं?

Question

if (-e "$ENV{MYHOME}/link") { 
    system("rm $ENV{MYHOME}/link"); 
} 

यह कोड यह जांचने के लिए किया जा रहा है कि एक सिम्लिंक मौजूद है या नहीं और इसे हटा दें।

मैं एक बग ट्रैक कर रहा हूं जहां यह कोड काम नहीं करता है। मैं अब तक इसे समझने में सक्षम नहीं हूं, लेकिन क्या हो रहा है यह है कि यह कोड सिम्लिंक को हटाने में असमर्थ है, जिसके परिणामस्वरूप लाइन के नीचे 'फ़ाइल मौजूद है' त्रुटि होती है।

मैं यह जांचना चाहता था कि इस तकनीक के साथ कुछ मौलिक दोष है या नहीं? मैंने के बारे में भी पढ़ा है लेकिन कुछ कारणों से वर्तमान दृष्टिकोण की सिफारिश नहीं की जानी चाहिए?

Answer 1

बस का उपयोग करें कहो क्यों। -l पूछता है कि लक्ष्य एक लिंक है या नहीं। -e पूछता है कि फ़ाइल मौजूद है या नहीं। यदि आपका लिंक एक अस्तित्वहीन फ़ाइल के लिए है, तो यह झूठा वापस आ जाएगा, और आपका कोड लिंक को हटाने में विफल रहेगा।

Answer 2

आपके कोड में केवल उस उपयोगकर्ता की अनुमति होगी जिसके तहत यह चल रहा है। क्या यह संभव है कि सिम्लिंक किसी अन्य उपयोगकर्ता के स्वामित्व में है और लिखने योग्य नहीं है? अनलिंक विफल रहता है

if (-l "$ENV{MYHOME}/link") { 
    unlink "$ENV{MYHOME}/link" 
     or die "Failed to remove file $ENV{MYHOME}/link: $!\n"; 
} 

हैं, तो यह करना होगा:

इसके अलावा, वहाँ हमेशा संभावना है कि $ ENV {MyHome} शामिल नहीं है आप क्या सोचते हैं यह होता है ...

Answer 3

प्रासंगिक ऑपरेटिंग सिस्टम का अपना errno.h है। मैं प्रत्येक त्रुटियों को संभालने के लिए Errno.pm का उपयोग करूंगा।

use Errno; 
use File::Spec; 

my $dir = File::Spec->catfile($ENV{MYHOME}, 'link'); 

if (!unlink $dir) { 
    if ($! == Errno::ENOENT) { 
     die "Failed to remove '$dir'. File doesn't exist:$!"; 
    } 
}