TKX

TKX´Â ¶Ç ´Ù¸¥ TK ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

TKX ¼øÀ§ ¹× ¿ä¾à

±¤°í

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

TKX ű×


TKX ¼³¸í

TKX´Â ¶Ç ´Ù¸¥ TK ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. TKX´Â ¾ÆÁ÷ ¶Ç ´Ù¸¥ TK ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù .Synopsis´Â TKX¸¦ »ç¿ëÇÕ´Ï´Ù. MY $ MW = TKX :: À§Á¬ -> »õ ( "."); $ MW-> new_button (-text => "hello, world", -command => sub {$ mw-> g_destroy;}) -> g_pack; tkx :: mainLoop (); TKX ¸ðµâÀº Perl¿¡ ´ëÇÑ ¶Ç ´Ù¸¥ TK ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÕ´Ï´Ù. TK´Â TCL ¾ð¾î¿¡ ¿¬°áµÈ GUI ÅøŶÀ̸ç TKX´Â TK ±â¹Ý ÀÀ¿ë ÇÁ·Î±×·¥À» PERL·Î ÀÛ¼ºÇÒ ¼öÀÖ´Â TCL¿¡ ´Ù¸®¸¦ Á¦°øÇÕ´Ï´Ù. TKX µÚ¿¡ÀÖ´Â ÁÖ¿ä ¾ÆÀ̵ð¾î´Â TCLÀÇ ¸Ç À§¿¡ ¸Å¿ì ¾ãÀº ·¡ÆÛ¶ó´Â °ÍÀÔ´Ï´Ù. Perl Layer°¡ Ãß°¡ÇÏÁö ¾ÊÀº TCL / TK ¹®¼­¿¡¼­ ÀÐÀº µ¿ÀÛÀº Á¤È®È÷ ³ªÅ¸³³´Ï´Ù. ´ÙÀ½ ±â´ÉÀÌ Á¦°øµË´Ï´Ù. TKX :: MainLoop () TK MainLoopÀ» ÀÔ·ÂÇÏ°í ó¸® À̺¥Æ®¸¦ ½ÃÀÛÇÕ´Ï´Ù. ÀÌ ±â´ÉÀº ±âº» âÀÌ »èÁ¦ µÉ ¶§ ¹ÝȯµË´Ï´Ù. ¹Ýȯ °ªÀÌ ¾ø½À´Ï´Ù .TKX :: EV ($ field, ...) Äݹ鿡 ´ëÇÑ Ã¹ ¹ø° Àμö·Î Àü´Þ µÈ °æ¿ì ÇØ´ç ÄݹéÀÇ ÄÁÅؽºÆ®¿¡¼­ ÇØ´ç TCL ÅÛÇø®Æ® ´ëü¸¦ È®Àå ÇÒ ¼öÀÖ´Â °³Ã¼°¡ »ý¼ºµË´Ï´Ù. ¾Æ·¡ÀÇ tkx :: foo ¼³¸í ¾Æ·¡ Äݹé Àμö°¡ Á¦°øµÇ´Â ¹æ¹ýÀ» ¼³¸íÇÕ´Ï´Ù. $ Çʵå´Â "% a"¶Ç´Â "% x"¿Í °°Àº ¹®ÀÚ¿­À̾î¾ßÇÕ´Ï´Ù. »ç¿ë °¡´ÉÇÑ ´ëüǰÀº BIND ¸í·É¿¡ ´ëÇÑ TCL ¹®¼­¿¡ ¼³¸íµÇ¾î ÀÖ½À´Ï´Ù .TKX :: SplitList ($ list) TCL ¸ñ·ÏÀ» Perl ¸ñ·ÏÀ¸·Î ºÐÇÒÇÕ´Ï´Ù. ¸ñ·ÏÀÇ °³º° ¿ä¼Ò´Â @a = tkx :: splitList (tkx :: set ( "a"))¸¦ º°µµÀÇ ¿ä¼Ò·Î ¸®ÅÏÇÕ´Ï´Ù. ÀÌ ÇÔ¼ö´Â Àμö°¡ Àß Çü¼ºµÈ ¸ñ·ÏÀÌ ¾Æ´Ï°Å³ª scalar context.tkx :: foo (@args)¿¡¼­ È£ÃâµÇ´Â °æ¿ì ´Ù¸¥ ÇÔ¼ö°¡ ÁÖ¾îÁø Àμö¿Í ÇÔ²² foo tcl ÇÔ¼ö¸¦ È£ÃâÇÕ´Ï´Ù. À̸§Àº óÀ½À¸·Î ´ÙÀ½°ú °°Àº ´ëü¸¦ °Þ°í ÀÖ½À´Ï´Ù : foo_bar -> "foo", "bar"# foo__bar -> "foo :: bar"# ¾×¼¼½º ³×ÀÓ ½ºÆäÀ̽º foo___bar -> "foo_bar"# ½ÇÁ¦·Î '_'°¡ ÇÊ¿äÇÕ´Ï´Ù.À̸¦ ÅëÇØ ´ëºÎºÐÀÇ TCL ³×ÀÓ ½ºÆäÀ̽ºÀÇ ´ëºÎºÐÀ» Perl·Î ¸ÅÇÎ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ ¸ÅÇÎÀÌ ÇØÁ¦µÇÁö ¾ÊÀ¸¸é TKX :: I :: CALL ($ func, @args)À» »ç¿ëÇϽʽÿÀ. ÀÌ·¸°ÔÇϸé À̸§ ´ëü ¶Ç´Â ¸¶¹ýÀ̾ø´Â $ FUNC¶ó´Â ÇÔ¼ö°¡ È£ÃâµË´Ï´Ù. ¿¹ : tkx :: expr ( "3 + 3"); tkx :: package_require ( "bwidget"); tkx :: dynamichelp__add ( ".", -text => "hi there"); if (tkx :: tk_windowingsystem) EQ "x11"if (tkx :: tk ___ messageBox (...) eq "¿¹") {...} Åë°ú µÈ Àμö´Â ÀÏ¹Ý ½ºÄ®¶ó, ¹è¿­ ÂüÁ¶, ÄÚµå ÂüÁ¶ ¶Ç´Â ½ºÄ®¶ó ÂüÁ¶. ¹è¿­ ÂüÁ¶´Â TCL ¸ñ·ÏÀ¸·Î º¯È¯µË´Ï´Ù. ¹è¿­¿¡´Â Áßø µÈ ¸ñ·ÏÀ» ±¸¼ºÇϱâ À§ÇØ ´Ù¸¥ ÀÏ¹Ý ½ºÄ®¶ó ¶Ç´Â ¹è¿­ ÂüÁ¶°¡ Æ÷Ç﵃ ¼ö ÀÖ½À´Ï´Ù. ÄݹéÀÌ ÇÊ¿äÇÑ TCL APIÀÇ °æ¿ì Perl ÇÔ¼ö¿¡ ´ëÇÑ ÂüÁ¶¸¦ Àü´ÞÇÒ ¼ö ÀÖ½À´Ï´Ù. ¶Ç´Â ù ¹ø° ¿ä¼Ò·Î ÄÚµå ÂüÁ¶°¡ÀÖ´Â ¹è¿­ ÂüÁ¶´Â È£Ãâ ÇÒ ¶§ ÄݹéÀÌ Àμö·Î ¿ä¼Ò¸¦ Àμö·Î ¼ö½ÅÇϵµ·Ï Çã¿ëÇÕ´Ï´Ù. ¹è¿­ÀÇ µÎ ¹ø° ¿ä¼Ò°¡ TKX :: ev () °´Ã¼ ÀÎ °æ¿ì, Æ÷ÇÔ µÈ ÅÛÇø®Æ®´Â Äݹé½Ã¿¡ È®Àå µÉ °ÍÀÔ´Ï´Ù. ÀϺΠÄÝ¹é ¿¹Á¦ : TKX :: After (3000, ÇÏÀ§ {Àμâ "ÇÏÀÌ"}); tkx :: button ( ". b", -command ); tkx :: bind ( ".", "", n";}, tkx ::ev ( "% a")]); tkx :: bind ( ".", "", ); º¯¼ö¸¦ Àü´Þ ÇؾßÇÏ´Â TCL APIÀÇ °æ¿ì Perl ½ºÄ®¶ó¿¡ ´ëÇÑ ÂüÁ¶¸¦ Àü´ÞÇÒ ¼ö ÀÖ½À´Ï´Ù. ½ºÄ®¶ó´Â TCL º¯¼ö¿Í µ¿ÀÏÇÑ ¹æ½ÄÀ¸·Î ½ÃûµÇ°í ¾÷µ¥ÀÌÆ®µË´Ï´Ù. TCL ¹®ÀÚ¿­ °á°ú´Â ½ºÄ®¶ó ¹× ¹è¿­ ÄÁÅؽºÆ®¿¡¼­ ¹ÝȯµË´Ï´Ù. TCL ¿À·ù´Â Perl ¿¹¿Ü·Î ÀüÆĵ˴ϴÙ. Boolean º¯¼ö $ tkx :: trace°¡ true °ªÀ¸·Î ¼³Á¤µÈ °æ¿ì TCLÀ¸·Î Àü´Þ µÈ ¸ðµç ¸í·ÉÀÇ ÃßÀûÀÌ stderr¿¡ ÀμâµË´Ï´Ù. ÀÌ º¯¼ö´Â PERL_TKX_TRACE ȯ°æ º¯¼ö¿¡¼­ ÃʱâÈ­µË´Ï´Ù. ÃßÀûÀº µð¹ö±ë¿¡ À¯¿ëÇϸç TCL ¹®°ú °ü·ÃÇÏ¿© TCL °ü¸®ÀÚ¿¡°Ô ¿À·ù¸¦º¸°í ÇؾßÇÏ´Â °æ¿ì¿¡ À¯¿ëÇÕ´Ï´Ù. ÃßÀû ÇàÀº ´ÙÀ½°ú ÇÔ²² Á¢µÎ»ç°¡ ºÙ¾î ÀÖ½À´Ï´Ù. $ LINE : ¿©±â¼­ $ SEQ´Â ½ÃÄö½º ¹øÈ£À̸ç $ TS´Â ù ¹ø° ¸í·ÉÀÌ ¹ßÇà µÈ ÀÌÈÄ·Î ½Ã°£ ¼ÒÀÎÀ̸ç $ FILE ¹× $ LINE Ç¥½Ã ÀÌ È£ÃâÀÌ Æ®¸®°Å µÈ ¼Ò½º ¶óÀο¡¼­´Â TKX :: Prefix¸¦ ÀÔ·ÂÇÏ´Â °Í¿¡ Áú¸®¸é TKX ¿¡¼­ÀÌ ±â´ÉÀ» ³»º¸³¾ ¼ö ÀÖ½À´Ï´Ù. ¿¹ : ¾ö°ÝÇÑ »ç¿ë; TKX QW (MainLoop Button Pack Destroy)¸¦ »ç¿ëÇϽʽÿÀ. ÆÑ (¹öÆ° ( ". b", -text => "³ª¸¦ ´©¸£½Ê½Ã¿À!", -command => )); MainLoop; No ±â´ÉÀº ±âº»ÀûÀ¸·Î ³»º¸³¾ ¼ö ÀÖ½À´Ï´Ù. ¡Ü Perl ¿ä±¸ »çÇ× : ¡¤ Perl.


TKX °ü·Ã ¼ÒÇÁÆ®¿þ¾î

VCS :: FILE.

VCS :: FILEÀº ¹öÀü Á¦¾îÇÏ¿¡ÀÖ´Â ÆÄÀÏ¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ PERL ¸ðµâÀÔ´Ï´Ù. ...

156

´Ù¿î·Îµå

net :: flow.

NET :: FLOW´Â NETFLOW / IPFIX µ¥ÀÌÅÍ ±×·¥À» µðÄÚµùÇÏ°í ÀÎÄÚµùÇÏ´Â µ¥ »ç¿ëµÇ´Â PERL ¸ðµâÀÔ´Ï´Ù. ...

264

´Ù¿î·Îµå

net :: snooplog.

NET :: SNOOPLOG´Â RFC1761 Snoop Ver 2¿¡¼­ Snoop Network Packet ·Î±×¸¦ Àд µ¥ »ç¿ëµÇ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

154

´Ù¿î·Îµå