How to find the file exists in Perl -


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

  #! / Usr / bin / perl my @arr = ( '/usr/test/test.*.con'); मेरा $ परिणाम = फाइलएक्सिस्ट (\ @ arr); प्रिंट का परिणाम; उप FileExists {मेरे $ param = shift; मेरी $ फ़ाइल (@ {$ param}) को प्रिंट करें {print $ file; यदि (-e $ फ़ाइल) {वापसी 1; }} वापसी 0; }  

यह 0 देता है। लेकिन मैं सभी जंगली पात्रों को भी ढूंढना चाहता हूं ... यह कैसे हल करें?

-e फ़ाइल ग्लोब को नियंत्रित नहीं कर सकता इस लाइन को बदलें

  मेरे @arr = ('/usr/test/test.*.con');  

से

  मेरा @arr = glob ('/ usr / test / test। *। Con');  

पहले ग्लोब पैटर्न का विस्तार करने के लिए और फिर मौजूदता के लिए मिलान की गई फ़ाइलों की जांच करें। हालांकि, क्योंकि ग्लोब पैटर्न से मेल खाते मौजूदा फाइलों को ही वापस करेगा, सभी फाइल वैसे भी मौजूद रहेंगी।


Comments

Popular posts from this blog

google indexing -

wpf - Custom Message Box Advice -

Eclipse CDT variable colors in editor -