टाइमर और टाइमआउट को लागू करने का सही तरीका।

क्या आप जानते हैं कि 99% अनुप्रयोगों और बिल्कुल CPAN मॉड्यूल, टाइमर और टाइमआउट को सही तरीके से लागू नहीं किया जाता है? विश्वास नहीं होता? सही ढंग से विश्वास मत करो! वहाँ है, एक CPAN मॉड्यूल है, जिसमें समयबद्धता का सही कार्यान्वयन है: EV । :) (वैसे, यह सभी का एकमात्र CPAN मॉड्यूल लगता है, जो ईवेंट लूप को लागू करता है, जो ईवेंट लूप के साथ कांटा का उपयोग करने की समस्या के बारे में जानता है, प्रलेखन में इसका वर्णन करता है और यहां तक ​​कि इसे किसी तरह हल करने की कोशिश करता है!)



समस्या यह है कि मौजूदा समय को वापस करने वाले कार्यों का उपयोग टाइमर और टाइमआउट को लागू करने के लिए किया जाता है। और वर्तमान समय को किसी भी दिशा में किसी भी समय किसी भी मूल्य पर - व्यवस्थापक या NTP-daemon द्वारा बदला जा सकता है। इसलिए, यह पता चला है कि, उदाहरण के लिए, 30 सेकंड के लिए प्रोग्राम द्वारा निर्धारित टाइमआउट 2 सेकंड के बाद, या कुछ दिनों के बाद भी काम कर सकता है - टाइमआउट सेट करने के बाद वर्तमान समय कैसे बदलता है (और विशेष रूप से उन्नत मामलों में यह कभी काम नहीं कर सकता है) पर निर्भर करता है।



समय और समयबाह्य के साथ काम करने का एकमात्र विश्वसनीय तरीका नीरस समय का उपयोग करना है:

use Time::HiRes qw( clock_gettime CLOCK_MONOTONIC );

$now = clock_gettime(CLOCK_MONOTONIC);







CLOCK_MONOTONIC समर्थन को दो साल पहले :: HiRes (मेरी पहल :)) पर जोड़ा गया था। और आज, फिर से, दो साल पहले की तरह, मैंने सीपीएएन मॉड्यूल को टाइमर्स और टाइमआउट के सही कार्यान्वयन के साथ देखा ... और मुझे केवल एक ही मिला। :(