How to open multiple folders and compare the files in Perl? -

मेरे पास एक parent_folder_1 है और उसमें कई उप फ़ोल्डर हैं मेरे पास parent_folder_2 और उसके अंदर कई उप फ़ोल्डर्स हैं।

उप फ़ोल्डर्स में .d फ़ाइलें हैं।

मुझे parent_folders की संख्या प्राप्त करनी होगी

उदाहरण के लिए:

"आप कितने पैरेंट_फॉल्डर्स की तुलना करना चाहते हैं?"

अगर उपयोगकर्ता 4 में इनपुट करता है, तो स्क्रिप्ट को सभी चार parent_folders के पथ के लिए पूछना चाहिए।

और, एक मूल फ़ोल्डर में, एक सब-फ़ोल्ड के अंदर, दूसरा है फ़ोल्डर जिसे d फ़ोल्डर नाम दिया गया है जिसमें .d फाइलें हैं।

मुझे प्रत्येक चार मूल फ़ोल्डरों में प्रत्येक। डी फ़ाइल की तुलना करना पड़ता है और परिणामों को एक्सेल स्प्रैडशीट में डाल देना पड़ता है जो .d फाइलें मौजूद हैं जिसमें मूल फ़ोल्डर्स हैं।

यदि xxx.d sf parent folder1 और parent folder3 में मौजूद है, तो आउटपुट होना चाहिए :

  xxx.d मूल फ़ोल्डर1 # इस स्थान को मूल फ़ोल्डर 2 के लिए है यदि वर्तमान # parentfolder3  

• निर्देशिकाओं, उप-निर्देशिकाओं और फ़ाइलों को दूर करने के लिए उपयोग करें।
• < P> में चाहता था () , जांचें:

  -f $ फ़ाइल :: ढूंढें: नाम & amp; amp; $ फ़ाइल :: ढूंढें :: नाम = ~ / ^। + \। $ D $ /

• यदि उपर्युक्त स्थिति झूठे का मूल्यांकन करती है, तो वापसी; अन्य, फाइल की तुलना करें और स्प्रैडशीट पॉप्युलेट करें।