How can I pass a parameter to the wanted function when using Perl's File::Find? -
संभव डुप्लिकेट:
एक इस तरह से पर्ल के मॉड्यूल का उपयोग कर सकता है:
ढूंढें (& amp; चाहता है, @ निर्देशिकाएं); हम wanted
फ़ंक्शन के लिए एक पैरामीटर कैसे जोड़ सकते हैं
उदाहरण के लिए, मैं / टीएमपी
प्रत्येक फाइल से कुछ जानकारी निकालने और परिणाम को एक अलग निर्देशिका में संग्रहीत किया जाना चाहिए। आउटपुट डायर पैरामीटर के रूप में दिया जाना चाहिए।
आप एक बंद का उपयोग करें:
फ़ाइल का उपयोग करें :: प्रतिलिपि; मेरी $ outdir = "/ home / me / saved_from_tmp"; खोज (उप {copy_to ($ outdir, $ _);}, '/ tmp'); उप copy_to {my ($ destination_dir, $ file) = @_; प्रतिलिपि $ फ़ाइल, "$ destination_dir / $ file" या मरना "$ $ $ 'की प्रतिलिपि नहीं कर सकता' $ destination_dir / $ file ': $!"; }
Comments
Post a Comment