आने वाले ईमेल संदेश के साथ पलक स्क्रॉल लॉक (पर्ल + बैश)

इस मुद्दे पर आधारित

उद्देश्य: हमारे इनबॉक्स में नए अपठित संदेश होने की स्थिति में कीबोर्ड एलईडी को ब्लिंक करना सीखें।

अतिरिक्त। शर्तें: OS - linux, भाषा - perl (मेल चेक) और bash (वास्तव में ब्लिंकिंग)।



दरअसल, जैसा कि हमने प्रारंभिक विषय में सलाह दी थी, हम समस्या को घटकों में विभाजित करते हैं:

1. डायोड को ब्लिंक करना सीखें
2. नए संदेशों के लिए मेल चेक करना सीखें
3. दोनों वस्तुओं को मित्र बनाओ

डायोड को ब्लिंक करना सीखना

एक लेडकंट्रोल डेमॉन है, लेकिन यह मेरे रिपॉजिटरी में नहीं था, इसलिए मैं xx कमांड का उपयोग करके कर्सर को ब्लिंक करूंगा

#!/bin/bash trap 'xset -led named "Scroll Lock"; exit ' SIGINT SIGTERM while(true); do xset led named "Scroll Lock" ; sleep 0.05 ; xset -led named "Scroll Lock"; sleep 0.05; done 

इस कोड को एक beepScroll फ़ाइल में सहेजा गया था, फ़ाइल को $ PATH में सूचीबद्ध निर्देशिकाओं में से एक में रखा गया था, और निष्पादन अधिकार दिए गए थे। कृपया ध्यान दें कि जब हस्ताक्षर प्राप्त होते हैं, तो हम एलईडी बंद कर देते हैं और जाल के माध्यम से बंद कर देते हैं।

नए संदेशों के लिए मेल की जाँच करना सीखना

 sub mymail(){ use Mail::IMAPClient; use IO::Socket::SSL; while (42){ my $user = 'login'; my $server = 'server.ltd'; my $pass = 'P@ssw0rd'; my $socket = IO::Socket::SSL->new( PeerAddr => $server, PeerPort => 993, ) or die "socket(): $@"; my $imap = Mail::IMAPClient->new( Socket => $socket, Server => $server, User => $user, Password => $pass, Debug => 0) or die "Cannot connect to $server as $user: $@"; my $not_read; foreach my $f ($imap->folders) { my $i = $imap->unseen_count($f)||0 ; $not_read += $i; } $imap->logout(); print $not_read; } } 

यहां हम आवश्यक मॉड्यूल कनेक्ट करते हैं (मेल :: IMAPClient मानक वितरण में शामिल नहीं है, इसे अलग से वितरित करने की आवश्यकता होगी) और एक अंतहीन लूप चलाएं जो 1) सर्वर से इमैप के माध्यम से जोड़ता है, इनबेरो डायरेक्टरी और इसके उपनिर्देशिकाओं में अपठित संदेशों की संख्या प्राप्त करता है और उनकी संख्या देता है, प्रतीक्षा करता है मिनट और शुरुआत से शुरू होता है।

हम सब साथ हैं

यहाँ मैं और अधिक विस्तार से जानना चाहूंगा। हम 2 धागे चलाएंगे। पहले मेल की जाँच करेगा और दूसरे को बिना पढ़े संदेशों की संख्या भेजेगा। दूसरे को कर्सर से ब्लिंकिंग स्क्रिप्ट को शुरू / बंद करने के संदेश प्राप्त होंगे।
तो:

 #!/usr/bin/perl #   use strict; use threads; #  use Thread::Queue; #       my $mypipe = Thread::Queue->new; #  #    threads->create(\&mymail); #   threads->create(\&myleds)->join; #     

दूसरे धागे में शामिल होने का मतलब है कि कार्रवाई जारी रखने से पहले हमें इस धागे के अंत की प्रतीक्षा करने की आवश्यकता है।
Myleds फ़ंक्शन कोड स्वयं:

 sub myleds(){ my $beep = 0; #1     . my $mypid; # pid ,   while($_ = $mypipe->dequeue){ #     if ($_ > 1){ if ($beep == 0){ $mypid = `nohup beepScroll > /dev/null 2>&1 &echo \$!`; #     pid'   $beep = 1; } } else { `kill $mypid` if $mypid; #    ,      . $mypid = 0 if $mypid; $beep = 0; } } } 

, और फ़ंक्शन में mymail () को प्रतिस्थापित किया जाना चाहिए

 prinr $not_read 

पर

 $mypipe->enqueue($not_read+1) 

"$ not_read + 1" क्योंकि अगर 0 मिलता है, तो यह शर्तों को गलत माना जाएगा।