Issue with localtime() in perl -

  मेरा ($ sec, $ min, $ hour, $ mday, $ mon, $ year, $ wday) = स्थानीय समय (समय); $ Wday = ('सूर्य', 'सोम', 'मंगल', 'बुध', 'गुरु', 'शुक्र', 'शनि') [$ wday] $ year + = 1 9 00; Printf फ़ाइलें "$ वर्ष / $ सोम / $ mday% 02d:% 02d:% 02d", $ घंटे, $ मिनट, $ सेकंड;  

प्रिंट आउटपुट को रूट यूजर के रूप में प्रदर्शित करता है, जिसमें से स्क्रिप्ट नहीं चल रही है। इसके बारे में कोई भी जानकारी।

आपको माह से 1 तक जोड़ना होगा, क्योंकि स्थानीय समय इसे शून्य-आधारित देता है, और आपको printf < / कोड> ताकि क्षेत्र आकार स्थिर हो।

  सख्त उपयोग करें; चेतावनियों का उपयोग करें; मेरा ($ सेकंड, $ मिनट, $ घंटे, $ माह, $ मोन, $ साल, $ wday) = स्थानीय समय; $ Wday = qw (रवि सोम मंगल बुध गुरु शुक्र शनि) [$ wday]; $ वर्ष = 1 9 00; ++ $ सोमवार; Printf "% s% 4d /% 02d /% 02d% 02d:% 02d:% 02d \ n", $ wday, $ year, $ mon, $ mday, $ hour, $ min, $ sec;  

आउटपुट

  मुकदमा 2015/03/17 14:06:36  

या आप यहां बहुत प्रभावी ढंग से उपयोग कर सकते हैं।

  सख्त का उपयोग करें; चेतावनियों का उपयोग करें; समय का उपयोग करें: टुकड़ा; प्रिंट लॉकटाइम- & gt; स्प्रटाइम ('% a% Y /% m /% d% H:% M:% S'), "\ n";  

आउटपुट

  मंगल 2015/03/17 14:06:36