Geo :: TAF.

µðÄÚµå ¸ÞŸ ¹× TAF ¹®ÀÚ¿­
Áö±Ý ´Ù¿î·Îµå

Geo :: TAF. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Dirk-Jan Koopman
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~djk/

Geo :: TAF. ű×


Geo :: TAF. ¼³¸í

¸ÞŸ¿Í TAF ¹®ÀÚ¿­ µðÄÚµù Geo :: TAF´Â Aviation Metar ¹× TAF Àϱ⠿¹º¸ ÄÚµå ¹®ÀÚ¿­À» ¿µ¾î·Î µðÄÚµùÇϰųª ÇÏÀ§ Ŭ·¡½º ÀÎ °æ¿ì ´Ù¸¥ ¾ð¾î¸¦ »ç¿ëÇÏ´Â °æ¿ì Synopsis¸¦ »ç¿ëÇÕ´Ï´Ù. Geo :: TAF; MY $ T = NEW GEO :: TAF; $ T-> ¸ÞŸ ( "EGSH 311420Z 29010KT 1600 SHSN SCT004 BKN00601 / M00 Q1021"); ¶Ç´Â $ T-> TAF ( "EGSH 311205Z 31132204010KT 9999 SCT020 TEMPO 13193000 SHSN BKN008 PROB30 ÅÛÆ÷ 13180700 + SHSN VV /// BECMG 161922005kt"); ¶Ç´Â $ T-> µðÄÚµå ( "Metar Egsh 311420Z 29010KT 1600 SHSN SCT004 BKN00601 / M00 Q1021"); ¶Ç´Â $ t-> µðÄÚµå ( "TAF EGSH 311205Z 31132204010KT 9999 SHS020 TEMPO 13193000 SHSN BKN008 PROB30 ÅÛÆ÷ 13180700 + SHSN VV /// BECMG 161922005kt"); ³» $ C ($ t-> µ¢¾î¸®) foreach foreap {$ c-> as_string, ''; } ¶Ç´Â $ self-> as_stringÀ» ÀμâÇϽʽÿÀ; Foreach My $ C ($ T-> µ¢¾î¸®) {Àμâ $ C-> AS_CHUNK, ''; } ¶Ç´Â $ self-> as_chunk_stringÀ» ÀμâÇϽʽÿÀ. ³» @out = $ self-> as_strings; ³» @out = $ self-> as_chunk_strings; ³» $ line = $ self-> raw; GEO :: TAF :: IS_WEATHER ($ line)? 1 : 0; ¿ä±¸ »çÇ× : ¡¤ Perl.


Geo :: TAF. °ü·Ã ¼ÒÇÁÆ®¿þ¾î