Geo :: TAF. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î