UI :: KeyboardLayout.

Å°º¸µå ·¹À̾ƿô µðÀÚÀÎ ¸ðµâ
Áö±Ý ´Ù¿î·Îµå

UI :: KeyboardLayout. ¼øÀ§ ¹× ¿ä¾à

±¤°í

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

UI :: KeyboardLayout. ű×


UI :: KeyboardLayout. ¼³¸í

UI :: KeyboardLayoutÀº Å°º¸µå ·¹À̾ƿôÀ» µðÀÚÀÎÇϱâÀ§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. / usr / bin / perl -wc31 UI :: KeyboardLayout; ¾ö°ÝÇÑ »ç¿ë; ui :: keyboardLayout :: -> set_nameslist ( "$ env {home} /downloads/nameslist-6.1.0d8.txt"); ³» $ i = do {local $ /; $ IN, '<' 'multiunikbdd'¶Ç´Â Á× ¿±´Ï ´Ù <$ in>}; # init ±¸¼º ÆÄÀÏÀÇ ¸Þ¸ð¸® ³»¿¡¼­ My $ k = ui :: keyboardlayout :: -> new_from_configfile ($ i) -> fill_win_template (1, ); $ k¸¦ ÀμâÇϽʽÿÀ; $ F, '<' "$ env {home} downloadsnameslist-610d8txt"¶Ç´Â Á× ¿±´Ï ´Ù ³» $ k = ui :: keyboardlayout ::-/> new (); My ($ d, $ c, $ name, $ blocks, $ extracomb) = $ k-> parse_namelist ($ f); $ F ¶Ç´Â Á×À» ´Ý½À´Ï´Ù. $ k-> print_decompositions ($ d); $ k-> print_compositions ($ c); ui :: keyboardlayout :: -> set_nameslist ( "$ env {home} /downloads/nameslist-6.1.0d8.txt", "$ env {home} /downloads/derivedage-6.1.0d13.txt")); ³» $ l = ui :: keyboardlayout :: -> new_from_configfile ( '¿¹ / EURKEY ++. KBDD'); $ F (QW (US CyrillicPhonetic)) {# ¿­±â ÆÄÀÏ, ¼±Åà () $ L-> FILL_WIN_TEMPLATE (1, À» ÀμâÇÕ´Ï´Ù. $ L-> PRINT_COVERAGE (Q (Q); } Á¦Ç°ÀÇ È¨ÆäÀÌÁö


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