| POE :: ±¸¼º ¿ä¼Ò :: ÀÏ¹Ý :: ±×¹° :: ssh2. POE :: Component :: Generic :: Net :: SSH2´Â Net :: SSH2¿¡ ´ëÇÑ Â÷´ÜÀ̾ø´Â ¾×¼¼½º¸¦ Á¦°øÇÏ´Â PoE ±¸¼º ¿ä¼ÒÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
POE :: ±¸¼º ¿ä¼Ò :: ÀÏ¹Ý :: ±×¹° :: ssh2. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~gwyn/
POE :: ±¸¼º ¿ä¼Ò :: ÀÏ¹Ý :: ±×¹° :: ssh2. ű×
POE :: ±¸¼º ¿ä¼Ò :: ÀÏ¹Ý :: ±×¹° :: ssh2. ¼³¸í
PoE :: Component :: Generic :: Net :: SSH2´Â Net :: SSH2¿¡ ´ëÇÑ ºñ Â÷´Ü ¾×¼¼½º¸¦ Á¦°øÇÏ´Â PoE ±¸¼º ¿ä¼ÒÀÔ´Ï´Ù. PoE :: Component :: Generic :: Net :: SSH2´Â Net :: SSH2.Synopsis¿¡ ´ëÇÑ Â÷´ÜµÇÁö ¾Ê´Â ¾×¼¼½º¸¦ Á¦°øÇÏ´Â PoE ±¸¼º ¿ä¼ÒÀÔ´Ï´Ù. PoE :: Component :: Generic :: Net :: SSH2; MY $ SSH = POE :: ±¸¼º ¿ä¼Ò :: ÀÏ¹Ý :: net :: ssh2-> create (alias => 'my-ssh', verbose => 1, debug => 0); ³» $ ä³Î; PoE :: Session-> create (inline_states => _start => sub {$ poe_kernel-> delay ( 'connect', $ n);}, connect => sub {$ ssh-> connect ({event =>) '}, $ È£½ºÆ®, $ Æ÷Æ®);}, connected => sub {$ ssh-> auth_password ({À̺¥Æ® => ·Î±×ÀÎ'}, $ »ç¿ëÀÚ, $ password);}, error => sub {my ($ resp , $ code, $ name, $ error) = @_ ; ´ÙÀÌ "¿À·ù $ name ($ ÄÚµå) $ ¿À·ù";}, login => sub {my ($ resp, $ ok) = @_ ; ($ ok) {$ ssh-> error ({event => ¿À·ù ', workerray => 1}); return;} $ poe_kernel-> ¼öÈ®·® ('cmd_do ' );}, ################ CMD_DO => ÇÏÀ§ {$ SSH-> cmd ({event => "cmd_output ', wanterray => 1},"ls -l " ); return;}, cmd_output => sub {my ($ resp, $ stdout, $ stderr) = @_ ; $ È£½ºÆ®ÀÇ È¨ µð·ºÅ丮ÀÇ ³»¿ë : n $ stdoutn "; poe_kernel-> ¼öÀ² ( 'exec_do');}, exec_do => sub {$ ssh-> exec ({event => exec_running ', wanterray => 0}, "cat -> $ file", stdoutevent =>'exec_stdout ', stderRevent =>'exec_stderr ', ClosedEvent =>'exec_closed ', errorevent =>'exec_error ');}, exec_running => su B {My ($ resp, $ ch) = @_ ; # ä³Î Alive $ ä³Î À¯Áö = $ CH; $ ä³Î -> ÆÄÀÏ ¾²±â ({}, "ÆÄÀÏÀÇ ³»¿ë"); $ ä³Î -> send_eof ({}); }, exec_error => sub {my ($ ÄÚµå, $ name, $ string) = @_ ; ´ÙÀÌ "¿À·ù : $ name $ string"; }, exec_stderr => sub {my ($ text, $ bytes) = @_ ; "stderr : $ text"; ¹ÝÇ°; }, exec_stdout => sub {my ($ text, $ bytes) = @_ ; °æ°í "stdout : $ text"; ¹ÝÇ°; }, exec_closed => sub {undef ($ ä³Î); $ ssh-> Á¾·á; },}); ¿ä±¸ »çÇ× : ¡¤ Perl.
POE :: ±¸¼º ¿ä¼Ò :: ÀÏ¹Ý :: ±×¹° :: ssh2. °ü·Ã ¼ÒÇÁÆ®¿þ¾î