अवधि :: रिपोर्ट

स्क्रिप्ट के भीतर से गतिशील 'रिपोर्ट' बनाने का आसान तरीका
अब डाउनलोड करो

अवधि :: रिपोर्ट रैंकिंग और सारांश

विज्ञापन

  • Rating:
  • लाइसेंस:
  • Perl Artistic License
  • कीमत:
  • FREE
  • प्रकाशक का नाम:
  • Shay Harding
  • प्रकाशक वेब साइट:
  • http://search.cpan.org/~shayh/

अवधि :: रिपोर्ट टैग


अवधि :: रिपोर्ट विवरण

स्क्रिप्ट के भीतर से गतिशील 'रिपोर्ट' बनाने का आसान तरीका अवधि :: रिपोर्ट एक पर्ल मॉड्यूल है जिसका उपयोग अच्छी तरह से स्वरूपित गतिशील आउटपुट उत्पन्न करने के लिए किया जा सकता है। यह प्रगति और संख्या :: प्रारूप दिखाने के लिए टर्म :: स्टेटसबार का भी उपयोग कर सकता है ताकि संख्याएं अधिक पठनीय दिखाती हैं। सभी आउटपुट डिफ़ॉल्ट रूप से stdout पर भेजा जाता है। वर्तमान रिलीज पिछले कोड के साथ संगत नहीं हो सकता है। आउटपुट को स्वरूपित करने के संबंध में कई बदलाव किए गए थे। Synopsis का उपयोग अवधि :: रिपोर्ट; समय का उपयोग करें :: किराए पर qw (usleep); मेरे $ आइटम = 100; मेरी $ रिपोर्ट = अवधि :: रिपोर्ट-> नया (स्टार्टरो => 4, numformat => 1, statialbar => ,); मेरी $ स्थिति = $ रिपोर्ट -> {STATUSBAR}; $ स्थिति-> Setitems ($ आइटम); $ स्थिति-> प्रारंभ; $ रिपोर्ट-> SavePoint ('कुल', "कुल विजेट:", 1); $ रिपोर्ट-> SavePoint ('त्याग', "\ N विजेट त्याग दिया:", 1); के लिए (1 .. $ आइटम) {$ रिपोर्ट-> फाइनप्रिंट ('कुल', 0, $ _); यदि (($ _% int ((रैंड (10) + रैंड (10) +1)))) {$ रिपोर्ट-> FIENPRINT ('त्याग', 0, ++ $ त्याग); $ स्थिति-> सबटेक्स्ट ("खराब विजेट को छोड़ना"); } और {$ स्थिति-> Subtext ("लॉकिंग विजेट"); } usleep (75000); $ स्थिति-> अद्यतन; } $ स्थिति-> रीसेट ({रिवर्स => 1, subtext => 'प्रसंस्करण विजेट', setitems => ($ आइटम- $ छोड़ना), प्रारंभ => 1}); $ रिपोर्ट-> SavePoint ('सूची', "\ N \ NInventorying विजेट ...", 1); के लिए (1 .. ($ आइटम- $ छोड़ें)) {$ रिपोर्ट-> FIEPPRINT ('सूची', 0, $ _); $ स्थिति-> अद्यतन; } $ रिपोर्ट-> प्रिंटबारपोर्ट ("\ N \ n \ n \ n विजेट के लिए सारांश: \ n \ n", {"कुल:" => $ आइटम, "अच्छे विजेट:" => $ आइटम- $ त्यागें, " खराब विजेट: "=> $ त्याग,}); आवश्यकताएं: · पर्ल


अवधि :: रिपोर्ट संबंधित सॉफ्टवेयर