Clever Geek Handbook

電話天気予報

プログラムされたボタンを1つ押すことで、携帯電話のスピーカーで天気予報を聞くために仕事をするとき、それは非常に有益な機会になると思いました。 カットの下でどのようにそれをしたかを見てください。





最初に必要なのは、天気予報そのものです。 サイトgismeteo.ruから取得することにしました。

私がやった方法：

私は自分の街を見つけたサイトgismeteo.ruに行きました。

ヘッダーの「Informers」リンクをクリックしました。

開いたページで、「XML形式のデータ」というテキストを見つけ、「コードを取得」ボタンからリンクを取得しました。

したがって、XML形式で新しい予測を取得する方法がわかりました。



次に、さらに処理するために保存する必要があります。

私は自転車を発明せず、2行のbashスクリプトを書きました




Copy Source | Copy HTML #!/bin/bash cd /usr/isp/weather /usr/bin/wget 'http://informer.gismeteo.ru/xml/34214_1.xml' -O ./34214_1.xml



  1. Copy Source | Copy HTML #!/bin/bash cd /usr/isp/weather /usr/bin/wget 'http://informer.gismeteo.ru/xml/34214_1.xml' -O ./34214_1.xml



  2. Copy Source | Copy HTML #!/bin/bash cd /usr/isp/weather /usr/bin/wget 'http://informer.gismeteo.ru/xml/34214_1.xml' -O ./34214_1.xml



  3. Copy Source | Copy HTML #!/bin/bash cd /usr/isp/weather /usr/bin/wget 'http://informer.gismeteo.ru/xml/34214_1.xml' -O ./34214_1.xml







informer.gismeteo.ru/xml/34214_1.xmlは、あなたの都市へのリンクです。 wgetコマンドはXMLをダウンロードし、それを現在のディレクトリのファイル34214_1.xmlに書き込みます。後で必要になります。 予測を常に最新の状態にするには、次のように、cronで実行するためにこのスクリプトを記述する必要があります。


*/60 * * * * /usr/isp/weather/weather_up.sh







AGIを介してアスタリスクとやり取りするPerlで予測アルゴリズムを作成することにしました。 XMLファイルを解析し、次のようなサウンドファイルを再生するためのアスタリスクのコマンドを含む一連の行を標準出力に出力するには、アルゴリズムが必要です。


Copy Source | Copy HTML



  1. EXEC再生天気/ Po_dannym_Gismeteo ""
  2. EXEC再生天気/ tod / dnem ""
  3. EXEC再生天気/ m / 15ogo ""
  4. EXEC再生の天気/バジェット ""
  5. EXEC再生天気/曇り/パスムルノ ""
  6. EXEC Playback天気/降水量/ dozhd '"" <br/>

    EXEC Playback weather / temp_vosduha_sostavit "" <br/> EXEC Playback weather / digits / 20 "" <br/> EXEC Playback weather / digits / 2 "" <br/> EXEC Playback weather / Do "" <br/> EXEC Playback天気/桁/ 20 "" <br/> EXEC再生天気/ gradusov_C "" <br/> EXEC再生天気/ Skorost'_vetra_sostavit ""
  7. EXECプレイバック天気/数字/ 5 ""
  8. EXEC再生天気/実行 ""
  9. EXECプレイバック天気/数字/ 3 ""
  10. EXECプレイバック天気/ metrov_v_sekundu ""
  11. EXEC再生天気/ Atmosfernoe_davlenie_sostavit ""
  12. EXEC再生天気/桁/ 700 ""
  13. EXEC再生天気/桁/ 40 ""
  14. EXEC再生天気/数字/ 7 ""
  15. EXEC再生天気/実行 ""
  16. EXEC再生天気/桁/ 700 ""
  17. EXEC再生天気/桁/ 40 ""
  18. EXECプレイバック天気/数字/ 5 ""
  19. EXEC再生天気/ milimetrov_rtutnogo_stolba ""




お気づきのように、サウンドレコーディングはたくさん準備する必要がありますが、これは一度限りです。



私のバージョンでは、記録されたフレーズの中に「from」という単語があります。 例：Atmosfernoe_davlenie_sostavitは、「大気圧の発生元」と読みます。



実際、XMLの構文解析には、 XML :: Simpleモジュールを使用しました。最も使いやすいように思えました。 XMLタグをスコアリングに必要な行に置き換えるために、リストを適用しました。


Copy Source | Copy HTML



  1. 私の$ date_name = {
  2. 1 => [ "EXEC再生天気\ / m \ / 1ogo \" \ "\ n" ]、
  3. 2 => [ "EXEC再生天気\ / m \ / 2ogo \" \ "\ n" ]、
  4. 3 => [ "EXEC Playback weather \ / m \ / 3ogo \" \ "\ n" ]、
  5. .....


数字を数字を再生するための一連のコマンドに変換するアルゴリズムを使用して、彼はまた車輪を再発明しないことを決め、お金をコピーブックに変換するための既成のアルゴリズムを採用しました（残念ながら私は他の誰かを覚えていません） \ / 1 \ "\" \ n "アルゴリズムが適応されます（多くの時間が節約されます）。

これですべてが明確になると思うので、スクリプトを見てみましょう。




Copy Source | Copy HTML



  1. ＃！/ usr / bin / perl
  3. 厳格な使用 ;
  4. XMLを使用 ::シンプル;
  5. Data :: Dumperを使用します。
  7. 私の$ date_name = {
  8. 1 => [ "EXEC再生天気\ / m \ / 1ogo \" \ "\ n" ]、
  9. 2 => [ "EXEC再生天気\ / m \ / 2ogo \" \ "\ n" ]、
  10. 3 => [ "EXEC Playback weather \ / m \ / 3ogo \" \ "\ n" ]、
  11. 4 => [ "EXEC Playback weather \ / m \ / 4ogo \" \ "\ n" ]、
  12. 5 => [ "EXEC再生天気\ / m \ / 5ogo \" \ "\ n" ]、
  13. 6 => [ "EXEC Playback weather \ / m \ / 6ogo \" \ "\ n" ]、
  14. 7 => [ "EXEC再生天気\ / m \ / 7ogo \" \ "\ n" ]、
  15. 8 => [ "EXEC Playback weather \ / m \ / 8ogo \" \ "\ n" ]、
  16. 9 => [ "EXEC Playback weather \ / m \ / 9ogo \" \ "\ n" ]、
  17. 10 => [ "EXEC Playback weather \ / m \ / 10ogo \" \ "\ n" ]、
  18. 11 => [ "EXEC Playback weather \ / m \ / 11ogo \" \ "\ n" ]、
  19. 12 => [ "EXEC Playback weather \ / m \ / 12ogo \" \ "\ n" ]、
  20. 13 => [ "EXEC Playback weather \ / m \ / 13ogo \" \ "\ n" ]、
  21. 14 => [ "EXEC Playback weather \ / m \ / 14ogo \" \ "\ n" ]、
  22. 15 => [ "EXEC Playback weather \ / m \ / 15ogo \" \ "\ n" ]、
  23. 16 => [ "EXEC Playback weather \ / m \ / 16ogo \" \ "\ n" ]、
  24. 17 => [ "EXEC Playback weather \ / m \ / 17ogo \" \ "\ n" ]、
  25. 18 => [ "EXEC Playback weather \ / m \ / 18ogo \" \ "\ n" ]、
  26. 19 => [ "EXEC Playback weather \ / m \ / 19ogo \" \ "\ n" ]、
  27. 20 => [ "EXEC Playback weather \ / m \ / 10ogo \" \ "\ n" ]、
  28. 21 => [ "EXEC Playback weather \ / m \ / 21ogo \" \ "\ n" ]、
  29. 22 => [ "EXEC Playback weather \ / m \ / 22ogo \" \ "\ n" ]、
  30. 23 => [ "EXEC Playback weather \ / m \ / 23ogo \" \ "\ n" ]、
  31. 24 => [ "EXEC Playback weather \ / m \ / 24ogo \" \ "\ n" ]、
  32. 25 => [ "EXEC Playback weather \ / m \ / 25ogo \" \ "\ n" ]、
  33. 26 => [ "EXEC Playback weather \ / m \ / 26ogo \" \ "\ n" ]、
  34. 27 => [ "EXEC再生天気\ / m \ / 27ogo \" \ "\ n" ]、
  35. 28 => [ "EXEC Playback weather \ / m \ / 28ogo \" \ "\ n" ]、
  36. 29 => [ "EXEC Playback weather \ / m \ / 29ogo \" \ "\ n" ]、
  37. 30 => [ "EXEC Playback weather \ / m \ / 30ogo \" \ "\ n" ]、
  38. 31 => [ "EXEC Playback weather \ / m \ / 31ogo \" \ "\ n" ]
  39. };
  41. 私の$ hour_name = {
  42. 0 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  43. 1 => [ "EXEC再生天気\ /時間\ / chas \" \ "\ n" ]、
  44. 2 => [ "EXEC再生天気\ /時間\ / chasa \" \ "\ n" ]、
  45. 3 => [ "EXEC再生天気\ /時間\ / chasa \" \ "\ n" ]、
  46. 4 => [ "EXEC再生天気\ /時間\ / chasa \" \ "\ n" ]、
  47. 5 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  48. 6 => [ "EXEC Playback weather \ / hour \ / chasov \" \ "\ n" ]、
  49. 7 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  50. 8 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  51. 9 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  52. 10 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  53. 11 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  54. 12 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  55. 13 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  56. 14 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  57. 15 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  58. 16 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  59. 17 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  60. 18 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  61. 19 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  62. 20 => [ "EXEC再生天気\ /時間\ / chasov \" \ "\ n" ]、
  63. 21 => [ "EXEC Playback weather \ / hour \ / chas \" \ "\ n" ]、
  64. 22 => [ "EXEC再生天気\ /時間\ / chasa \" \ "\ n" ]、
  65. 23 => [ "EXEC再生天気\ /時間\ / chasa \" \ "\ n" ]、
  66. };
  68. 私の$ m_name = {
  69. 1 => [ "EXEC Playback weather \ / m \ / yanvarya \" \ "\ n" ]、
  70. 2 => [ "EXEC Playback weather \ / m \ / fevralya \" \ "\ n" ]、
  71. 3 => [ "EXEC Playback weather \ / m \ / marta \" \ "\ n" ]、
  72. 4 => [ "EXEC Playback weather \ / m \ / aprelya \" \ "\ n" ]、
  73. 5 => [ "EXEC Playback weather \ / m \ / maya \" \ "\ n" ]、
  74. 6 => [ "EXEC Playback weather \ / m \ / iunya \" \ "\ n" ]、
  75. 7 => [ "EXEC Playback weather \ / m \ / iylya \" \ "\ n" ]、
  76. 8 => [ "EXEC Playback weather \ / m \ / avgusta \" \ "\ n" ]、
  77. 9 => [ "EXEC Playback weather \ / m \ / sentyabrya \" \ "\ n" ]、
  78. 10 => [ "EXEC Playback weather \ / m \ / octyabya \" \ "\ n" ]、
  79. 11 => [ "EXEC Playback weather \ / m \ / noyabrya \" \ "\ n" ]、
  80. 12 => [ "EXEC Playback weather \ / m \ / decabrya \" \ "\ n" ]
  81. };
  83. 私の$ tod_name = {
  84. 0 => [ "EXEC再生天気\ / tod \ / noch'u \" \ "\ n" ]、
  85. 1 => [ "EXEC Playback weather \ / tod \ / utrom \" \ "\ n" ]、
  86. 2 => [ "EXEC Playback weather \ / tod \ / dnem \" \ "\ n" ]、
  87. 3 => [ "EXEC Playback weather \ / tod \ / vecherom \" \ "\ n" ]
  88. };
  90. 私の$ cloudiness_name = {
  91. 0 => [ "EXEC Playback weather \ / cloudiness \ / yasno \" \ "\ n" ]、
  92. 1 => [ "EXEC Playback weather \ / cloudiness \ / malooblachno \" \ "\ n" ]、
  93. 2 => [ "EXEC Playback weather \ / cloudiness \ / oblachno \" \ "\ n" ]、
  94. 3 => [ "EXEC Playback weather \ / cloudiness \ / pasmurno \" \ "\ n" ]
  95. };
  97. 私の$降水量名 = {
  98. 4 => [ "EXEC再生天気\ /降水量\ / dozhd '\" \ "\ n" ]、
  99. 5 => [ "EXEC再生天気\ /降水量\ / liven '\" \ "\ n" ]、
  100. 6 => [ "EXEC再生天気\ /降水量\ /スネグ\" \ "\ n" ]、
  101. 7 => [ "EXEC再生天気\ /降水量\ /スネグ\" \ "\ n" ]、
  102. 8 => [ "EXEC再生天気\ /降水量\ / groza \" \ "\ n" ]、
  103. 9 => [ "" ]、
  104. 10 => [ "EXEC再生天気\ /降水量\ / bez_osadkov \" \ "\ n" ]
  105. };
  107. 私の$ wind_direction_name = {
  108. 0 => [ "EXEC Playback weather \ / wind_direction \ / severnyi \" \ "\ n" ]、
  109. 1 => [ "EXEC Playback weather \ / wind_direction \ / severo-vostochnyi \" \ "\ n" ]、
  110. 2 => [ "EXEC Playback weather \ / wind_direction \ / vostochno-uzhnyi \" \ "\ n" ]、
  111. 3 => [ "EXEC再生天気\ / wind_direction \ / ugo-zapadnyi \" \ "\ n" ]
  112. };
  115. my $ xmlWeather = new XML :: Simple（keeproot => 1 、searchpath => "。" 、forcearray => 1 、suppressempty => '' ）;
  116. my $ xmlData1 = $ xmlWeather- > XMLin（ '/usr/isp/weather/34214_1.xml' ）;
  117. my $ xmlData = $ xmlData1- > {MMWEATHER} [ 0 ]-> {REPORT} [ 0 ]-> {TOWN} [ 0 ]-> {FORECAST};
  119. $ | = 1 ;
  120. while （<STDIN>）{
  121. ムシャムシャ（ $ _ ）;
  122. 長さ（ $ _ ）== 0の 場合、最後;
  123. }
  125. ＃ "Po dannym Gismeteo"
  126. print "EXEC Playback weather \ / Po_dannym_Gismeteo \" \ "\ n" ;
  127. 私の$ i = 0 ;
  128. for （ $ i = 0 ; $ i < 4 ; $ i ++）
  129. {
  130. print $ tod_name- > { $ xmlData- > [ $ i ]-> {tod}}-> [ 0 ];
  131. print $ date_name- > { $ xmlData- > [ $ i ]-> {day}}-> [ 0 ];
  132. print $ m_name- > { $ xmlData- > [ $ i ]-> {month}}-> [ 0 ];
  133. ＃
  134. print "EXEC Playback weather \ / budet \" \ "\ n" ;
  135. print $ cloudiness_name- > { $ xmlData- > [ $ i ]-> {PHENOMENA} [ 0 ]-> {cloudiness}}-> [ 0 ];
  136. print $ precipit_name- > { $ xmlData- > [ $ i ]-> {PHENOMENA} [ 0 ]-> {precipitation}}-> [ 0 ];
  137. ＃温度
  138. print "EXEC Playback weather \ / temp_vosduha_sostavit \" \ "\ n" ;
  139. print digit_string（ $ xmlData- > [ $ i ]-> {TEMPERATURE} [ 0 ]-> {max}）;
  140. print "EXEC Playback weather \ / Do \" \ "\ n" ;
  141. print digit_string（ $ xmlData- > [ $ i ]-> {TEMPERATURE} [ 0 ]-> {min}）;
  142. print "EXEC Playback weather \ / gradusov_C \" \ "\ n" ;
  143. ＃ベター
  144. print "EXEC Playback weather \ / Skorost'_vetra_sostavit \" \ "\ n" ;
  145. print digit_string（ $ xmlData- > [ $ i ]-> {WIND} [ 0 ]-> {max}）;
  146. print "EXEC Playback weather \ / Do \" \ "\ n" ;
  147. print digit_string（ $ xmlData- > [ $ i ]-> {WIND} [ 0 ]-> {min}）;
  148. print "EXEC Playback weather \ / metrov_v_sekundu \" \ "\ n" ;
  149. ＃Atmosfernoe davlenie
  150. print "EXEC Playback weather \ / Atmosfernoe_davlenie_sostavit \" \ "\ n" ;
  151. print digit_string（ $ xmlData- > [ $ i ]-> {PRESSURE} [ 0 ]-> {max}）;
  152. print "EXEC Playback weather \ / Do \" \ "\ n" ;
  153. print digit_string（ $ xmlData- > [ $ i ]-> {PRESSURE} [ 0 ]-> {min}）;
  154. print "EXEC Playback weather \ / milimetrov_rtutnogo_stolba \" \ "\ n" ;
  156. }
  159. ＃================================================= ==================================================
  160. ＃================================================= ==================================================
  161. ＃================================================= ==================================================
  162. sub digit_string {
  163. 私の$桁 =シフト;
  164. ローカル$ _ ;
  166. $桁 =〜s / ^-+ //;の 場合 、 $記号 = 1
  169. $ digit =〜s ＃^ 0 + ##;
  170. my（ $ b_dig 、 $ s_dig ）=（split（m/[,.†/、 $ digit 、 2 ））;
  171. $ s_dig = "" ;
  172. ＃
  173. ＃「余分な」文字から数値を消去します（100_000,43）
  174. ＃
  175. if （定義済み$ b_dig および長さ$ b_dig ）{
  176. ＃$ b_dig =〜s＃[^ \ d] ## sg;
  177. } else {
  178. $ b_dig = "" ;
  179. }
  180. if （定義された$ s_dig および長さ$ s_dig ）{
  181. ＃$ s_dig =〜s＃[^ \ d] ## sg;
  182. } else {
  183. $ s_dig = "" ;
  184. }
  185. ＃
  186. ＃丸めの結果として、ペニーを切り上げる
  187. ＃ルーブルを取得し、b_dig（ルーブル）に追加します
  188. ＃
  189. ＃if（sprintf（ '％0.2f'、 "0. $ s_dig"）== 1）{
  190. ＃$ b_dig ++;
  191. ＃$ s_dig = '00';
  192. ＃} else {
  193. ＃$ s_dig = substr（sprintf（ '％0.2f'、 "0. $ s_dig"）、2）;
  194. ＃}
  195. ＃
  196. my @ array = split（ //、（$ b_dig || 0））;
  198. ＃
  199. ＃数値のビット容量を決定します。
  200. ＃
  201. my $ class_id = int（スカラー（@ array ）/ 3 ）;
  202. $ class_id ++ if （スカラー（@ 配列 ）％ 3 ）;
  203. ＃
  204. ＃サポートされていない容量。
  205. ＃
  206. $ class_id > 5の 場合、 $ digitを 返します。
  208. 私の$ digits_name = {
  209. 0 => [ "EXEC Playback weather \ / digits \ / 0 \" \ "\ n" 、 "" 、 "" ]、
  210. 1 => [[ "EXEC Playback weather \ / digits \ / 1 \" \ "\ n" 、 "EXEC Playback weather \ / digits \ / 1a \" \ "\ n" ]、 "EXEC Playback weather \ / digits \ / 10 \ "\" \ n " 、 " EXEC再生天気\ /数字\ / 100 \ "\" \ n " ]、
  211. 2 => [[ "EXEC Playback weather \ / digits \ / 2 \" \ "\ n" 、 "EXEC Playback weather \ / digits \ / 2e \" \ "\ n" ]、 "EXEC Playback weather \ / digits \ / 20 \ "\" \ n " 、 " EXEC再生天気\ /数字\ / 200 \ "\" \ n " ]、
  212. 3 => [ "EXEC再生天気\ /数字\ / 3 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 30 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 300 \ "\" \ n " ]、
  213. 4 => [ "EXEC再生天気\ /数字\ / 4 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 40 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 400 \ "\" \ n " ]、
  214. 5 => [ "EXEC再生天気\ /数字\ / 5 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 50 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 500 \ "\" \ n " ]、
  215. 6 => [ "EXEC再生天気\ /数字\ / 6 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 60 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 600 \ "\" \ n " ]、
  216. 7 => [ "EXEC再生天気\ /数字\ / 7 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 70 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 700 \ "\" \ n " ]、
  217. 8 => [ "EXEC再生天気\ /数字\ / 8 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 80 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 800 \ "\" \ n " ]、
  218. 9 => [ "EXEC再生天気\ /数字\ / 9 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 90 \" \ "\ n" 、 "EXEC再生天気\ /数字\ / 900 \ "\" \ n " ]、
  219. };
  221. 私の$ dec_digits = {
  222. 11 => "EXEC再生天気\ /数字\ / 11 \" \ "\ n" 、
  223. 12 => "EXEC再生天気\ /数字\ / 12 \" \ "\ n" 、
  224. 13 => "EXEC再生天気\ /数字\ / 13 \" \ "\ n" 、
  225. 14 => "EXEC再生天気\ /数字\ / 14 \" \ "\ n" 、
  226. 15 => "EXEC再生天気\ /数字\ / 15 \" \ "\ n" 、
  227. 16 => "EXEC再生天気\ /数字\ / 16 \" \ "\ n" 、
  228. 17 => "EXEC再生天気\ /数字\ / 17 \" \ "\ n" 、
  229. 18 => "EXEC再生天気\ /数字\ / 18 \" \ "\ n" 、
  230. 19 => "EXEC再生天気\ /数字\ / 19 \" \ "\ n"
  231. };
  233. 私の$ digits_class = {
  234. '-1' => [ 1 、 "" 、 "" 、 "" ]、
  235. 0 => [ 0 、 "" 、 "" 、 "" ]、
  236. 1 => [ 1 、 "EXEC再生天気\ /数字\ / tysiacha \" \ "\ n" 、 "EXEC再生天気\ /数字\ / tysiach \" \ "\ n" 、 "EXEC再生天気\ /数字\ / tysiachi \ "\" \ n " ]、
  237. 2 => [ 0 、 "EXEC再生天気\ /数字\ /百万\" \ "\ n" 、 "EXEC再生天気\ /数字\ / millionov \" \ "\ n" 、 "EXEC再生天気\ /数字\ / milliona \ "\" \ n " ]、
  238. 3 => [ 0 、 "EXEC再生天気\ /数字\ /ミリアード\" \ "\ n" 、 "EXEC再生天気\ /数字\ /ミリアルドフ\" \ "\ n" 、 "EXEC再生天気\ /数字\ /ミリアルダ\ "\" \ n " ]、
  239. 4 => [ 0 、 "EXEC再生天気\ /数字\ /兆\" \ "\ n" 、 「EXEC再生天気\ /数字\ / trillionov \ "\" \ n " 、 " EXEC再生天気\ /数字\ / trilliona \ "\" \ n " ]、
  240. };
  241. ＃
  242. ＃左の「3」の長さを決定する...
  243. ＃
  244. 私の$ id = 0 ;
  245. except（（scalar @ array ）％ 3 ）{
  246. $ id = 2 ;
  247. } else {
  248. $ id =（（scalar @ array ）％ 3 ） -1 ;
  249. }
  251. 私の$ str = '' ;
  252. 私の$ sub_str = 0 ;
  253. 私の$ tvar = 0 ;
  255. if （ $ array [ 0 ] == 0 ）{
  256. ＃
  257. ＃ルーブルがまだゼロの場合、「ゼロルーブル」と書き込み、
  258. ＃必要ない場合は、次の行をコメントアウトしてください...
  259. ＃
  260. $ str 。= $ digits_name- > { '0' }-> [ 0 ]。 」 $ digits_class- > { '0' }-> [ 2 ]。 '' ;
  261. } else {
  262. while （defined（ $ _ = shift @ array ））{
  263. if （ $ _ > 0 ）{
  264. if （ $ _ == 1 および $ id == 1 ）{
  265. ＃
  266. ＃sub num（）で使用する量を数える
  267. ＃
  268. $ sub_str + = $ _ * 10 ;
  269. if （defined（ $ tvar = shift @ array ） and $ tvar > 0 ）{
  270. $ str 。= $ dec_digits- > { $ _ 。 $ tvar };
  271. $ sub_str + = $ tvar ;
  272. $ id- ;
  273. } else {
  274. unshift @ array 、 $ tvar ;
  275. if （ref $ digits_name- > { $ _ }-> [ $ id ] eq 'ARRAY' ）{
  276. ＃$ str。= $ digits_name-> {$ _}-> [$ id]-> [$ digits_class-> {$ class_id-1}-> [0]];
  277. } else {
  278. $ str 。= $ digits_name- > { $ _ }-> [ $ id ];
  279. }
  280. }
  281. } else {
  282. ＃
  283. ＃sub num（）で使用する量を数える
  284. ＃
  285. $ sub_str + =（ $ _ *（ 10 ** $ id ））;
  286. if （ref $ digits_name- > { $ _ }-> [ $ id ] eq 'ARRAY' ）{
  287. $ str 。= $ digits_name- > { $ _ }-> [ $ id ]-> [ $ digits_class- > { $ class_id - 1 }-> [ 0 ]];
  288. } else {
  289. $ str 。= $ digits_name- > { $ _ }-> [ $ id ];
  290. }
  291. }
  292. $ str 。= '' ;
  293. }
  294. if （- $ id ==- 1 ）{
  295. $ id = 2 ;
  296. $ class_id- ;
  297. if （ $ sub_str > 0 ）{
  298. $ str 。= num（ $ sub_str 、（@ { $ digits_class- > { $ class_id }}）[ 1 .. 3 ]）。 '' ;
  299. } elsif（ $ class_id == 0 ）{
  300. $ str 。= $ digits_class- > { $ class_id }-> [ 2 ]。 '' ;
  301. }
  302. $ sub_str = 0 ;
  303. }
  304. }
  305. }
  307. $ str 。= $ s_dig 。 」 num（ $ s_dig 、（@ { $ digits_class- > { '-1' }}）[ 1 .. 3 ]）;
  309. if （定義された$記号 ）{
  310. $ str = "EXEC再生天気\ /数字/マイナス\" \ "\ n" $ str ;
  311. }
  313. $ s_dig = substr（ $ str 、 0、1 ）;
  314. ＃
  315. ＃使用された場合、より簡単であることが判明
  316. ＃ロケールとucfirstを使用するよりも...
  317. ＃
  318. IF
  319. substr（ $ str 、 0、1 、 $ s_dig ）;
  320. }
  322. $ strを 返し ます 。
  323. }
  325. ＃
  326. ＃お金の数を言葉の行に変換するときに使用されます..
  327. ＃
  329. sub num {
  330. 私の$ d1 = $ _ [ 0 ]％ 10 ;
  331. my $ d2 = int（（ $ _ [ 0 ]％ 100 ）/ 10 ）;
  332. return $ _ [ 2 ] if （（ $ d2 == 1 ） または （ $ d1 =〜/ [ 05-9 ] /））;
  333. return $ _ [ 1 ] if （ $ d1 == 1 ）;
  334. return $ _ [ 3 ];
  335. }




次に、このスクリプトの使用方法をアスタリスクに教える必要があります。 これを行うには、目的のコンテキストのextensions.confファイルで、次のように記述します。




Copy Source | Copy HTML



  1. exten => XXXX、1、待機（1）
  2. exten => XXXX、n、回答（）
  3. exten => XXXX、n、Agi（/usr/isp/weather/weather.pl）
  4. exten => XXXX、n、ハングアップ（）


Weatherサービスに割り当てるXXXX番号はどこにありますか。 例えば、私はDigiumボードを持っています。これを使って、誰でもどんな電話からでも電話で天気を知ることができます。

以上です！


More articles:


All Articles