POE :: Component :: Generic :: Net :: SSH2

PoE :: Component :: Generic :: Net :: SSH2は、Net :: SSH2へのブロックアクセスを提供するPoEコンポーネントです。
今すぐダウンロード

POE :: Component :: Generic :: Net :: SSH2 ランキングとまとめ

広告

  • Rating:
  • ライセンス:
  • Perl Artistic License
  • 価格:
  • FREE
  • 出版社名:
  • Philip Gwyn
  • 出版社のWebサイト:
  • http://search.cpan.org/gwyn/

POE :: Component :: Generic :: Net :: SSH2 タグ


POE :: Component :: Generic :: Net :: SSH2 説明

PoE :: Component :: Generic :: Net :: SSH2は、Net :: SSH2へのブロックアクセスを提供するPoEコンポーネントです。 POE :: Component :: generic :: Net :: SSH2は、Net :: SSH2.Synopsisを使用していないアクセスを提供するPoEコンポーネントです。 My $ SSH = POE :: Component :: Generic :: Net :: SSH2-> CREATE(alias => 'my-ssh'、verbose => 1、debug => 0);私の$チャンネル。 POE :: Session-> Create(inline_states => {_start => {$ poe_kernel->遅延( 'connect'、$ n);}、connect => sub {$ ssh-> connect({event => ') '}、$ host、$ port);}、connected => sub {$ ssh-> auth_password({event =>' login '}、$ user、$ password);、error => sub {My($ Resp 、$ CODE、$ NAME、$ ERROR)= @_ 。DIE "ERROR $ NAME($コード)$エラー";}、login => sub {My($ Resp、$ OK)= @_ ;($ OK){$ ssh-> error({event => 'error'、hantarray => 1}); Return;} $ poe_kernel-> eime( 'cmd_do') );;;}、##################({event => 'cmd_output'、antray => 1}、 "ls -l" ); return; cmd_output => sub {my($ reps、$ stdout、$ stderr)= @_ ; #チャンネルを維持する$ channel = $ ch。 $ channel-> write({}、「ファイルの内容」)。 $ channel-> send_eof({}); exec_error => sub {My($ CODE、$ name、$ string)= @_ ; "エラー:$ name $ string"; exec_stderr => sub {My($ text、$ bytes)= @_ ; "Stderr:$テキスト";戻る; exec_stdout => sub {My($ text、$ bytes)= @_ ;警告 "Stdout:$ TEXT";戻る; exec_closed => sub {undef($ channel);} $ SSH->シャットダウン; }、})}要件: ・Perl


POE :: Component :: Generic :: Net :: SSH2 関連ソフトウェア