विषय पर भिन्नता: फोन द्वारा मौसम का पूर्वानुमान

मैंने फोन द्वारा मौसम पूर्वानुमान सेवा के आयोजन का एक और तरीका साझा करने का निर्णय लिया। यहां, इस पोस्ट की तुलना में, अधिक बुद्धि को एस्टरिस्क में स्थानांतरित किया जाता है।

मौसम के साथ एक्सएमएल

वर्तमान मौसम के साथ एक्सएमएल और अगले दो दिनों के लिए पूर्वानुमान मैं बीबीसी के साथ लेता हूं।

चूंकि हम क्रोन से छुटकारा नहीं पा सकते हैं, इसलिए हम जोड़ते हैं:
0 2 * * * /home/alexandr/xml/weather/almaty/bbcweather.sh
0 14 * * * /home/alexandr/xml/weather/almaty/bbcweather.sh
30 16 * * * /home/alexandr/xml/weather/almaty/bbcweather.sh

यह प्रायोगिक रूप से स्थापित किया गया था कि XML को दिन में तीन बार अपडेट किया जाता है (कम से कम अल्माटी शहर के लिए)।

स्क्रिप्ट न केवल डाउनलोड करता है, बल्कि एक्सएमएल-कू को संसाधित करता है और फाइलों में आवश्यक मूल्यों को विघटित करता है। सच है, मेरी स्क्रिप्ट बहुत ही आदिम है और सबसे अधिक संभावना है कि कई लोगों को इसकी अक्षमता से हतोत्साहित किया जाएगा, इसलिए मैं इस पर ध्यान केंद्रित नहीं करूंगा।

पाठ फ़ाइलें

एक ही पैरामीटर के लिए फ़ाइल नाम (उदाहरण के लिए, न्यूनतम तापमान) अलग-अलग दिनों के लिए एक उपसर्ग द्वारा भिन्न होगा: 1 - आज, 2 और 3 - कल और परसों, क्रमशः। उदाहरण के लिए, आज (XML में पहला डेटा ब्लॉक) के लिए न्यूनतम तापमान "1Tmin", कल (दूसरा डेटा ब्लॉक) - "2Tmin" नाम के साथ एक फ़ाइल में संग्रहीत किया जाएगा।

अब, फ़ाइलों की सामग्री के अनुसार (जो संयोगवश, पंक्ति वर्ण का अंत नहीं होना चाहिए):

• सप्ताह के दिन (दिन) में रविवार के लिए "दिन -०", शनिवार के लिए "दिन -6" शामिल है;
• हवा की दिशा (Wdir) में "उत्तर", "उत्तर-पश्चिम" के लिए "एनडब्ल्यू" शामिल है;
• संख्यात्मक मान (आर्द्रता, तापमान, हवा की गति) संख्याओं में लिखे गए हैं;
• पाठ - पाठ के साथ :-) (बादल, दृश्यता)।

परीक्षण के लिए (और एक स्क्रिप्ट लिखने के लिए भी) मैंने "इको" कमांड के "एन-एन" पैरामीटर का उपयोग किया ताकि फ़ाइल पर लाइन चरित्र के अंत को न लिखें:
echo -n "day-5" > 1Wday

इसलिए, हमारे पास मौसम डेटा वाली फ़ाइलों की एक सूची है। अब Extension.conf कॉन्फ़िगरेशन पर जाएं।

extensions.conf

 [weather] exten => 071,1,Set(wpath="/home/your-directory/") exten => 071,n,Goto(say-weather,s,1) [say-weather] exten => s,1,Answer() exten => s,n,Set(E=1) exten => s,n(play),Playback(digits/${SHELL(cat ${wpath}${E}Wday)}) exten => s,n,Playback(custom/temperatura) exten => s,n,SayNumber(${SHELL(cat ${wpath}${E}Tmin)}) exten => s,n,SayNumber(${SHELL(cat ${wpath}${E}Tmax)}) exten => s,n,Playback(custom/wind) exten => s,n,Playback(custom/wind/${SHELL(cat ${wpath}${E}Wdir)}) exten => s,n,SayNumber(${SHELL(cat ${wpath}${E}Wspd)}) exten => s,n,Playback(custom/metrov-v-sekundu) exten => s,n,Playback(custom/vlazhnost) exten => s,n,SayNumber(${SHELL(cat ${wpath}${E}Humd)}) exten => s,n,Playback(custom/procentov) exten => s,n,WaitExten() exten => s,n,Hangup() exten => _[1-3],1,Set(E=${EXTEN}) exten => _[1-3],n,Goto(say-weather,s,play) 

डीब्रीफिंग

हम एक्सटेंशन प्रकाशित करते हैं, जिसके द्वारा हम मौसम तक डायल करेंगे और उसी समय, "wpath" चर सेट करें, जहां हम पहले बनाई गई फ़ाइलों की निर्देशिका का संकेत देते हैं:

 exten => 071,1,Set(wpath="/home/your-directory/") 

मौसम के संदर्भ में जाएं:

 exten => 071,n,Goto(say-weather,s,1) 

मूल्य "ई" (आज के अनुसार, आज सेट) को शुरू करने के बाद, सप्ताह के दिन का नाम खेलें:

 exten => s,n,Set(E=1) exten => s,n(play),Playback(digits/${SHELL(cat ${wpath}${E}Wday)}) 

आप प्लेबैक टीम की कल्पना भी नहीं कर सकते हैं, लेकिन मैं आपको बाद में बताऊंगा। यदि एक सापेक्ष पथ निर्दिष्ट किया जाता है, तो डिफ़ॉल्ट रूप से (मेरे डेबियन पर किसी भी मामले में) "/ usr / share / तारांकन / ध्वनियाँ / en /" (या "ru /" यदि पैरामीटर "भाषा = आरयू" sip.conff में निर्दिष्ट है। । "Wpath" और "E" का मान हम पहले ही निर्धारित कर चुके हैं, इसलिए हमें निम्नलिखित मिलते हैं:

 Playback(/usr/share/asterisk/sounds/ru/digits/${SHELL(cat /home/your-directory/1Wday)}) 

"बिल्ली / घर / अपनी-निर्देशिका / 1 दिन" को क्रियान्वित करने का परिणाम है, उदाहरण के लिए, स्ट्रिंग "दिन -2017" (उदाहरण के लिए, चलो आज का रविवार है), फिर:

 Playback(/usr/share/asterisk/sounds/ru/digits/day-0) 

यानी एक फ़ाइल को उस सप्ताह के दिन के नाम से खेला जाता है, जिसकी हमें आवश्यकता होती है, क्योंकि अंकों / दिन -० फ़ाइल में संडे साउंड रिकॉर्डिंग है।

यह रेखा भी इसी सिद्धांत पर काम करती है:

 SayNumber(${SHELL(cat ${wpath}${E}Tmin)}) 

आज का न्यूनतम तापमान बाहर पढ़ा जाता है, जिसका मूल्य फ़ाइल "/ home / your-directory / 1Tmin" से लिया जाता है।

काश, मुझे संदेशों का हिस्सा खुद रिकॉर्ड करना पड़ता, मैंने उन्हें "कस्टम" निर्देशिका में रखा।

 exten => s,n,Playback(custom/temperatura) 

सभी प्लेबैक और SayNumber की समाप्ति के बाद, हम अतिरिक्त संख्याओं के दर्ज होने की प्रतीक्षा कर रहे हैं:

 exten => s,n,WaitExten() 

अतिरिक्त संख्याओं में 1, 2 और 3 शामिल हैं, जैसा कि पैटर्न _ द्वारा देखा गया है [1-3]:

 exten => _[1-3],1,Set(E=${EXTEN}) exten => _[1-3],n,Goto(say-weather,s,play) 

जब आप उनमें से किसी पर क्लिक करते हैं, तो पहली पंक्ति वैरिएबल "E" में प्रवेश किया हुआ मान प्रदान करती है, और दूसरी पंक्ति लेबल "प्ले" (इस संदर्भ की तीसरी पंक्ति) पर ले जाती है। इस प्रकार, तारांकन फिर से मौसम के कॉलर को सूचित करेगा, लेकिन पहले से ही कल (यदि संख्या 2 दर्ज की गई थी) या कल (3) के बाद का दिन।

कुछ भी नहीं हमें 071 के बगल में एक और विस्तार लिखने और एक ही शहर के लिए मौसम को पुन: पेश करने के लिए मौसम के संदर्भ के उपयोग से रोकता है:

 [weather] exten => 071,1,Set(wpath="/home/user/weather/city1/files") exten => 071,n,Goto(say-weather,s,1) exten => 072,1,Set(wpath="/home/user/weather/city2/files") exten => 072,n,Goto(say-weather,s,1) 

मुझे याद नहीं है कि मैंने रूसी संदेशों के साथ संग्रह को कहाँ डाउनलोड किया है, लेकिन यह Google के लिए आसान होना चाहिए।
Www.voip-info.org पर एस्टरिस्क के कार्यों का विस्तृत विवरण।

बोनस

एक बोनस के रूप में, मैं extension.conf भाग पोस्ट करता हूं, जिसके साथ मैंने अपने ऑडियो संदेश रिकॉर्ड किए:

 [test-context] exten => 051,1,Goto(rec-file,s,1) [rec-file] exten => s,1,Verbose(1,Recording application) exten => s,n,Answer() exten => s,n,Playback(record-enter-num) exten => s,n(filename),Read(filename) exten => s,n(rec-mes),Record(/tmp/recs/${filename}:gsm) exten => s,n,Playback(beep) exten => s,n,Wait(1) exten => s,n(rec-play),Playback(/tmp/recs/${filename}) exten => s,n(rec-review),Background(vm-review) exten => s,n,WaitExten(10) exten => s,n(rec-del),System(rm /tmp/recs/${filename}.gsm) exten => s,n,Playback(vm-deleted) exten => s,n(read-hang),Read(rep,,1,,,2);Wait for 1 digit for 2 seconds to receive 1 which means that another file is to be recorded exten => s,n,Gotoif($["${rep}" = "1"]?filename) exten => s,n,Hangup() exten => 1,1,Playback(vm-msgsaved) exten => 1,n,SayDigits(${filename}) exten => 1,n,Goto(rec-file,s,read-hang) exten => 2,1,Goto(rec-file,s,rec-play) exten => 3,1,Wait(1) exten => 3,n,Goto(rec-file,s,rec-mes) exten => i,1,Goto(rec-file,s,rec-review) exten => t,1,Goto(rec-file,s,rec-del) exten => 0,1,Goto(rec-file,s,rec-del) 

हम फ़ाइल नामों की एक सूची (संख्याओं के रूप में) के साथ एक प्लेट तैयार कर रहे हैं और जिस पाठ को बोलने की आवश्यकता होगी, हम कम या ज्यादा अच्छे फोन / हेडसेट से 051 पर कॉल करते हैं, हम अपनी प्लेट की प्रत्येक पंक्ति के माध्यम से "रन" करते हैं और अंत में हम / tmp / recs / से तैयार फाइल लेते हैं। (कुछ और समझने के लिए उनके नाम बदलने के लिए मत भूलना)।

और इसे उपयोग करने में आसान बनाने के लिए एक संकेत:



UPD: bbcweather.sh के लिंक: pastebin.com/DJYy6XRM और sed.bbc: pastebin.com/Xm4EeDst । अगर कोई सामान्य XML पार्सर का उपयोग करेगा - तो कोड को साझा करना न भूलें :-)।

UPD2: मैं फिर से लिखी गई स्क्रिप्ट (इस समय पर्ल में) और एक्सटेंशन. conf से एक अंश पोस्ट कर रहा हूं :

weather.sh

 #!/usr/bin/perl use XML::LibXML; my $d = "/home/alexandr/xml/perl/bbc/moscow/"; # Working directory my $f = "files/"; # Directory with weather files my $wget = "wget -qO - http://newsrss.bbc.co.uk/weather/forecast/58/Next3DaysRSS.xml > "; my $filename = "bbc.xml"; # XML-file to process my $i = 3; # Counter: try to download XML-file $i time(s) my $wait = 2; # Wait for $wait second(s) between downloads my $log = "/var/log/bbc_weather_moscow.log"; # Log-file :-) (used for logging failed download attempts) my %days = ( "Sunday" => "day-0", "Monday" => "day-1", "Tuesday" => "day-2", "Wednesday" => "day-3", "Thursday" => "day-4", "Friday" => "day-5", "Saturday" => "day-6"); sub t2f{ # Subroutine for writing text to file my($text, $file, $app) = @_; # Read parameters $text, $file (add non-zero $app to append, but not rewrite file) if ($app) { open (OUT_FILE, '>>', $file); } else { open (OUT_FILE, '>', $file); } print OUT_FILE "$text"; close (OUT_FILE); } sub noun{ # Choose noun for number my($number, $form1, $form2, $form5) = @_; # Usage: &noun(1, , , ); my $n10 = abs($number) % 10; my $n100 = abs($number) % 100; if ( $n100 > 4 && $n100 < 21 || $n10 == 0 || $n10 > 4 ) { return $form5 }; if ( $n10 > 1 && $n10 < 5 ) { return $form2 }; if ( $n10 == 1 ) { return $form1 }; return $form5; } chdir $d; # Go to working directory DOWNLOAD: # Label for 'Goto' (will be used in case XML has not been updated) $i -= 1; #print("Downloading...\n"); system($wget.$filename); my $parser = XML::LibXML->new(); my $doc = $parser->parse_file($filename); # Parse this file ($filename) #check if XML has been updated open(FILE, 'date.txt'); my $date = <FILE>; close(FILE); my @xmldate = $doc->findnodes('//pubDate'); if ( $date eq @xmldate[0]->to_literal ) { my $t = localtime; if ($i) { &t2f("$t: XML has not been updated, I will try $i more ".&noun($i,"time","times","times")."\n",$log,1); } else { &t2f("$t: XML has not been updated, I will not try any more\n",$log,1); exit; # No more tries left -> Finish myself! } sleep $wait; goto DOWNLOAD; # Tried to do with 'While' or "Do, while', but variables should be initialised outside loop, decided to use 'Goto' } else { &t2f(@xmldate[0]->to_literal,"date.txt"); } #searching for //item/title and //item/description values $i = 0; foreach my $item ($doc->findnodes('//item')) { # for each //item $i += 1; # BTW, we should be counting from 1 to 3 (today, tomorrow and day after tomorrow) my $title = $item->findnodes('./title'); $title = $title->to_literal; #take ./title and convert to string my $desc = $item->findnodes('./description'); $desc = $desc->to_literal; #take ./description and convert to string chdir $d.$f; # Go to directory with weather files if ( $title =~ m/^(\w+)/ ) { # Match first word (weekday) &t2f($days{"$1"},$i."Wday"); } # Export weekday in format day-0, day-1, etc if ( $title =~ m/: (\w+(\s\w+){0,}),/ ) { # Match one or more words, delimited with spaces (matched pattern should be followed by comma) &t2f("$1",$i."Prec"); } if ( $desc =~ m/Max Temp: (-{0,1}\d+)/ ) { &t2f("$1",$i."Tmax"); # Export Tmax (Max Temperature) &t2f(&noun("$1","gradus","gradusa","gradusov"),$i."DMax"); } # Export Dmax (right form of "" for Tmax) if ( $desc =~ m/Min Temp: (-{0,1}\d+)/ ) { &t2f("$1",$i."Tmin"); # Export Tmin (Min Temperature) &t2f(&noun("$1","gradus","gradusa","gradusov"),$i."DMin"); } if ( $desc =~ m/Wind Direction: (\w+)/ ) { # Export Wdir (Wind Direction) &t2f("$1",$i."Wdir"); } if ( $desc =~ m/Wind Speed: (\d+)/ ) { &t2f(int("$1"*0.44704+0.5),$i."Wspd"); # Export Wspd (mph*0.44704=kmh), int(kmh+0.5) - rounding to nearest integer &t2f(&noun("$1"*0.44704+0.5,"m_s","ma_s","mov_s"),$i."Wsms"); } # (,)   if ( $desc =~ m/Visibility: (\w+)/ ) { &t2f("$1",$i."Visb"); } # Export Visb (Visibility) if ( $desc =~ m/Pressure: (\d+)/ ) { &t2f(int("$1"*0.75),$i."Pres"); # Export Pres (Pressure) (mb*0.75=mmHg) &t2f(&noun("$1","mm_hg","mma_hg","mmov_hg"),$i."Prmm"); } # (,)   if ( $desc =~ m/Humidity: (\d+)/ ) { &t2f(int("$1"),$i."Humd"); # Export Humd (Humidity) &t2f(&noun("$1","procent","procenta","procentov"),$i."Hper"); } } 

extensions.conf

exten => 072,1,Set(wpath="/home/alexandr/xml/perl/bbc/moscow/files/")
exten => 072,n,System(echo "${STRFTIME(${EPOCH},,%Y.%m.%d %H:%M:%S)}\t${CALLERID(name)}\t${CALLERID(num)}" >> /var/log/calls_to_moscow_weather.log)
exten => 072,n,Goto(say-weather-perl,s,1)

[say-weather-perl]
exten => s,1,Answer()
exten => s,n,Set(E=1)
exten => s,n,Set(CHANNEL(language)=alex_01) ; By default use directory: /usr/share/asterisk/sounds/alex_01/
exten => s,n(play),Background(digits/${SHELL(cat ${wpath}${E}Wday)}) ; Weekday
exten => s,n,Background(weather/${SHELL(cat ${wpath}${E}Prec)}) ; Precipitation
exten => s,n,Background(weather/temperatura) ; Precipitation
exten => s,n,SayNumber(${SHELL(cat ${wpath}${E}Tmin)}) ; Minimum temperature
exten => s,n,SayNumber(${SHELL(cat ${wpath}${E}Tmax)}) ; Maximum temperature
exten => s,n,Background(weather/${SHELL(cat ${wpath}${E}DMax)}) ; Maximum degree(s)
exten => s,n,Background(weather/veter) ; Wind
exten => s,n,Background(weather/${SHELL(cat ${wpath}${E}Wdir)}) ; Wind Direction
exten => s,n,SayNumber(${SHELL(cat ${wpath}${E}Wspd)}) ; Wind speed
exten => s,n,Background(weather/${SHELL(cat ${wpath}${E}Wsms)}) ; Meter(s) per seconD
exten => s,n,Background(weather/vlazhnost) ; Humidity
exten => s,n,SayNumber(${SHELL(cat ${wpath}${E}Humd)}) ; Humidity percentage
exten => s,n,Background(weather/${SHELL(cat ${wpath}${E}Hper)}) ; Percent(s)

exten => s,n,WaitExten()
exten => s,n,Hangup()
exten => _[1-3],1,Set(E=${EXTEN})
exten => _[1-3],n,Goto(say-weather-perl,s,play)

UPD3: मैं मास्को शहर के लिए एक मुफ्त टेलीफोन पूर्वानुमान सेवा के साथ तबाही का ध्यान प्रदान करता हूं । मौसम का पूर्वानुमान फोन +7 (499) 753-00-09 द्वारा उपलब्ध है। यह संख्या कृपया Doc.Telecom द्वारा प्रदान की गई है , जो सभी को यह सेवा प्रदान करने में सहायता के लिए आभार व्यक्त करता है। धन्यवाद :-)!