| ÀåÄ¡ :: TNC. ÀåÄ¡ :: TNC´Â TNC¿¡ ´ëÇÑ ÀÏ¹Ý ÀÎÅÍÆäÀ̽º¿Í °°Àº µ¿ÀÛÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÀåÄ¡ :: TNC. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- R Bernard Davison
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rbdavison/XML-API-WIX2-0.02/lib/XML/API/WIX2.pm
ÀåÄ¡ :: TNC. ű×
ÀåÄ¡ :: TNC. ¼³¸í
DEVICE :: TNC´Â TNC¿¡ ´ëÇÑ ÀÏ¹Ý ÀÎÅÍÆäÀ̽º¿Í °°Àº ÀÛµ¿ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. DEVICE :: TNC´Â TNC¿¡ ´ëÇÑ ÀÏ¹Ý ÀÎÅÍÆäÀ̽º¿Í °°Àº µ¿ÀÛÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù.ÀÌ ¸ðµâÀº Å͹̳Π³ëµå ÄÁÆ®·Ñ·¯ (TNC)¿¡ ´ëÇÑ ÀÏ¹Ý ÀÎÅÍÆäÀ̽º¸¦ ±¸ÇöÇÕ´Ï´Ù. ÀûÀýÇÑ TNC¿¡ ´ëÇÑ ·Î¿ì ·¹º§ ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â ÇÏÀ§ Ŭ·¡½º¸¦·ÎµåÇÕ´Ï´Ù. »ç¿ëÀÚ¿¡°Ô µ¥ÀÌÅÍ ÇÁ·¹ÀÓÀ» ¹ÝȯÇÏ´Â ´õ ³ôÀº ·¹º§ ¹æ¹ýÀ» »ç¿ëÀÚ¿¡°Ô ¸®ÅÏÇÏ´Â °ÍÀº Àΰ£ÀÇ ÀÐÀ» ¼öÀÖ´Â Form.Synopsis »ç¿ë ÀåÄ¡ :: TNC; ³» $ tnc_type = 'Å°½º'; my % tnc_config = ( 'port'=> ($ config {osname '} eq "mswin32")? "com3": "/ dev / tnc-x",'baudrate '=> 9600,'warn_malformed_kiss '=> 1 'raw_log'=> "raw_packet.log",); MY $ TNC = »õ ÀåÄ¡ :: TNC ($ TNC_TYPE, % TNC_CONFIG); DIS "¿À·ù : $ TNC°¡ ¾Æ´Ï¶ó¸é TNC.N¿¡ ¹º°¡ À߸ø ¿¬°áµÇ¾ú½À´Ï´Ù. (1) {MY $ DATA = $ TNC-> READ_FRAME (); $ REPETERS = JOIN ",", @ {$ data -> { 'ÁÖ¼Ò'} -> { 'Repeaters'}}; MY $ Info = °¡ÀÔ "", {$ DATA -> { 'Á¤º¸'}}; Àμâ : $ data -> { 'ÁÖ¼Ò'} -> { 'source'} "; "$ data -> { 'ÁÖ¼Ò'} -> { 'Destination'}"; "VIA $ REPETERSN"À» ÀμâÇϽʽÿÀ. "µ¥ÀÌÅÍ : $ Infon"À» ÀμâÇϽʽÿÀ. } new () ³» $ type = "Å°½º"; ³» % tnc_data = { '¿É¼Ç'=> '°ª'}; MY $ TNC = »õ ÀåÄ¡ :: TNC ($ type, % tnc_data); »õ ¸Þ¼µå´Â Àü´Þ µÈ À¯ÇüÀÇ Å͹̳Π³ëµå ÄÁÆ®·Ñ·¯ (TNC)¿Í Åë½ÅÇÏ´Â µ¥ »ç¿ëÇÒ ¼öÀÖ´Â »õ Device :: TNC °´Ã¼¸¦ ÀÛ¼ºÇÏ°í ¹ÝȯÇÕ´Ï´Ù. ¸Þ¼µå´Â ù ¹ø° Åë°ú µÈ Àμö°¡ ¿¬°áÇÒ TNCÀÇ À¯ÇüÀÔ´Ï´Ù. ÀÌ·¸°ÔÇϸé TNC À¯Çü¿¡ ÀûÇÕÇÑ ¸ðµâÀ» ½ÃµµÇÏ°í·ÎµåÇÕ´Ï´Ù. ÈÄ¼Ó ¿É¼ÇÀº ¿øÇÏ´Â TNC¿¡ ¿¬°áÇϵµ·Ï·Îµå µÈ ¸ðµâ·Î Àü´ÞµË´Ï´Ù.ÀÌ ¿É¼Ç¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀº TNC TYPE.READ_FRAME ()¿¡ ´ëÇÑ ¸ðµâ ¼³¸í¼¸¦ ÂüÁ¶ÇϽʽÿÀ. $ frame_data = $ tnc-> read_frame (); my % frame_data = $ tnc-> read_frame ();ÀÌ ¹æ¹ýÀº TNC¿¡¼ HDLC ÇÁ·¹ÀÓÀ» Àаí ÇؽÃÀÇ Çʵ带 Æ÷ÇÔÇÏ´Â Çؽà ¶Ç´Â Çؽà ÂüÁ¶·Î ±¸Á¶¸¦ ¹ÝȯÇÕ´Ï´Ù. ¹Ýȯ µÈ µ¥ÀÌÅÍÀÇ ±¸Á¶°¡ ´ÙÀ½°ú °°½À´Ï´Ù. ¼öÇà¿ø. { 'Á¤º¸'=> ,'¼Ò½º '=>'vk2kfj-7 '}}ÀÌ ¸ðµâÀ» °³¹ßÇÏ´Â µ¿¾È ³ª´Â U (UI) Çü½Ä ÇÁ·¹ÀÓ ¸¸ ¼ö½Å ÇßÀ¸¹Ç·Î I ¹× S ÇÁ·¹ÀÓÀ¸·Î ÀÛµ¿ÇÏ´Â Äڵ带 °³¹ßÇÏÁö ¸øÇß½À´Ï´Ù. ´©±¸µçÁö i ¶Ç´Â s ÇÁ·¹ÀÓÀ» ÀÐ°í ½Í´Ù¸é ¾Ë·ÁÁÖ¼¼¿ä. ±×¸®°í ±×µéÀ» ±¸ÇöÇÏ´Â °ÍÀ» º¼ °ÍÀÔ´Ï´Ù. µ¥ÀÌÅÍÀÇ Å°½º ·Î±×¸¦ ¸¸µé°í ³ª¿¡°Ô À̸ÞÀÏÀ» º¸³»ÁֽʽÿÀ. ¿ä±¸ »çÇ× : ¡¤ Perl.
ÀåÄ¡ :: TNC. °ü·Ã ¼ÒÇÁÆ®¿þ¾î