TKXTKX´Â ¶Ç ´Ù¸¥ TK ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. | |
Áö±Ý ´Ù¿î·Îµå |
TKX ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- 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 °ü·Ã ¼ÒÇÁÆ®¿þ¾î
net :: flow.
NET :: FLOW´Â NETFLOW / IPFIX µ¥ÀÌÅÍ ±×·¥À» µðÄÚµùÇÏ°í ÀÎÄÚµùÇÏ´Â µ¥ »ç¿ëµÇ´Â PERL ¸ðµâÀÔ´Ï´Ù. ...
264
net :: snooplog.
NET :: SNOOPLOG´Â RFC1761 Snoop Ver 2¿¡¼ Snoop Network Packet ·Î±×¸¦ Àд µ¥ »ç¿ëµÇ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...
154