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

Popular posts from this blog

.net - C# List<T>.Find(x=>x.Rectangle.Contains(Point)) FAIL -

c++ - QtQuick: QQmlApplicationEngine failed to load component qrc:/main.qml:23 Invalid attached object assignment -

iphone - Smoothing a rounded stroke in Core Graphics -