| ·ÎÄÉÀÏ :: ÇÏÀ§ ±¹È ·ÎÄÌ :: ÇÏÀ§ ¹üÀ§´Â »óÅÂ, Áö¹æ, Ä«¿îƼ µîÀ» ÄÚµå·Î º¯È¯ ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
·ÎÄÉÀÏ :: ÇÏÀ§ ±¹È ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kimryan/Locale-SubCountry-1.37/lib/Locale/SubCountry.pm
·ÎÄÉÀÏ :: ÇÏÀ§ ±¹È ű×
·ÎÄÉÀÏ :: ÇÏÀ§ ±¹È ¼³¸í
·ÎÄÉÀÏ :: SubCountry Äڵ忡¼ /·Î ÁÖ, Áö¹æ, ±º µîÀÇ À̸§À» º¯È¯ ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÌ´Ù. ·ÎÄÉÀÏ :: SubCountry´Â code.SYNOPSIS ³» $ÀÇ COUNTRY_CODE = 'GB'¿¡¼ /·Î µîÀÇ À̸§À» ÁÖ, Áö¹æ, ±ºÀ» º¯È¯ ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÌ´Ù; ³» $ ¿µ±¹Àº »õ·Î¿î ·ÎÄÉÀÏ :: SubCountry ($ COUNTRY_CODE¸¦) =; (ÇÏÁö $ UK)ÇÏ´Â °æ¿ì { "À߸øµÈ ÄÚµå $ÀÇ country_codenÀ»"´ÙÀÌ; } ELSIF ($ ¿µ±¹ -> has_sub_countries) {ÇÁ¸°Æ® ($ ¿µ±¹ -> FULL_NAME ( 'DGY'), "N"); # ´ýÇÁ¸®½º ¹× °¶·¯¿þÀÌ Àμâ ($ ¿µ±¹ -> regional_division ( 'DGY'), "N"); # CT (½ºÄÚƲ·£µå)} ³» $ È£ÁÖ = »õ ·ÎÄÉÀÏ :: SubCountry ( 'È£ÁÖ'); ( "N", $ È£ÁÖ -> ±¹°¡)¸¦ Àμâ; # È£ÁÖ Àμâ ($ È£ÁÖ -> COUNTRY_CODE, "N"); # AU °æ¿ì ($ È£ÁÖ -> has_sub_countries) {Àμâ ($ È£ÁÖ -> ÄÚµå ( '´º »ç¿ì½º ¿þÀÏÁî'), "NÀ»"); # NSW Àμâ ($ È£ÁÖ -> FULL_NAME ( 'S.A.'), "N"); # »ç¿ì½º ¿À½ºÆ®·¹Àϸ®¾Æ ³» $ UPPER_CASE = 1; ($ È£ÁÖ -> FULL_NAME ( 'QLD', $ UPPER_CASE), "N")¸¦ Àμâ; # ÄýÁñ·£µå Àμâ ($ È£ÁÖ -> Ä«Å×°í¸® ( 'NSW'), "N"); # »óÅ Àü´Ü ($ È£ÁÖ -> FIPS10_4_code ( "ACT"), "N"); # 01 Àμâ ($ È£ÁÖ -> ISO3166_2_code (02 '), "N"); # NSW ³» @aus_state_names = $ È£ÁÖ -> all_full_names; ³» @aus_code_names = $ È£ÁÖ -> all_codes; ³» % aus_states_keyed_by_code = $ È£ÁÖ -> code_full_name_hash; ³» % aus_states_keyed_by_name = $ È£ÁÖ -> full_name_code_hash; ³» $ ÄÚµå (Á¤·Ä Å° %ÀÇ aus_states_keyed_by_code) {printf¿Í ( "% - 3S : %ÀÇ SN", $ ÄÚµå, $ aus_states_keyed_by_code {$ ÄÚµå}) foreach´Â; }} ±¹°¡ ÄÚµå¿Í À̸§ # ¹æ¹ý ³» $ÀÇ ¼¼°è = »õ ·ÎÄÉÀÏ :: SubCountry :: ¼¼°è; ³» @all_countries = $ ¼¼°èÀûÀ¸·Î> all_full_names; ³» @all_country_codes = $ ¼¼°èÀûÀ¸·Î> all_codes; ³» % all_countries_keyed_by_name = $ ¼¼°èÀûÀ¸·Î> full_name_code_hash; % all_country_keyed_by_code = $ ¼¼°èÀûÀ¸·Î> code_full_name_hash ³»,ÀÌ ¸ðµâÀº ÀϹÝÀûÀ¸·Î ¿ìÆí ÁÖ¼Ò ÁöÁ¤¿¡ »ç¿ëµÇ´Â Äڵ忡 ´ëÇÑ ±¹°¡ °ü¸® Áö¿ªÀÇ Àüü À̸§À» º¯È¯ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿ª¹æÇâ Á¶È¸µµ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÇÏÀ§ ±¹°¡ Äڵ忡 Á¤ÀǵǾîÀÖ´Ù "ISO 3166-2 : 1998, ±¹°¡ÀÇ À̸§°ú ¼¼ºÐÀÇ Ç¥ÇöÀ»À§ÇÑ ÄÚµå´Â".SUB ±¹°¡´Â ¹Ì±¹, È£ÁÖ, ¿µ±¹, ¾ÆÀÏ·£µå, ij³ª´ÙÀÇ ÁÖ¿Í ±ºÀÇ »óÅ·ΠºÒ¸°´Ù. ±¹°¡ÀÇ ¸ðµç ÇÏÀ§ ±¹°¡ À̸§ ¹× ISO 3166-2 ÄÚµå´Â ¼¼°èÀÇ ¸ðµç ±¹°¡ 3166-1 ÄÚµå´Â Çؽà ¶Ç´Â array.ISO Áß Çϳª¸¦ ¹Ýȯ ÇÒ ¼öÀÖ´Â Çؽà ¶Ç´Â Çϳª array.Names ¹× ISO·Î ¹Ýȯ ÇÒ ¼öÀÖ´Ù 3166-2 ÄÚµå´Â FIPS 10-4 ÄÚµå·Î º¯È¯ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿ª¹æÇâ Á¶È¸µµ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
·ÎÄÉÀÏ :: ÇÏÀ§ ±¹È °ü·Ã ¼ÒÇÁÆ®¿þ¾î