| Poe :: Bauteil :: generic :: net :: ssh2 PoE :: Komponente :: generic :: net :: ssh2 ist eine PoE-Komponente, die einen nicht blockierenden Zugriff auf net :: ssh2 bietet. |
Jetzt downloaden |
Poe :: Bauteil :: generic :: net :: ssh2 Ranking & Zusammenfassung
- Lizenz:
- Perl Artistic License
- Name des Herausgebers:
- Philip Gwyn
- Website des Verlags:
- http://search.cpan.org/~gwyn/
Poe :: Bauteil :: generic :: net :: ssh2 Stichworte
Poe :: Bauteil :: generic :: net :: ssh2 Beschreibung
PoE :: Komponente :: generic :: net :: ssh2 ist eine PoE-Komponente, die nicht blockierender Zugriff auf net :: ssh2 bietet. Poe :: component :: generic :: net :: ssh2 ist eine PoE-Komponente, die nicht blockierende Zugang zu net :: ssh2.synopsis bietet Poe :: component :: generic :: net :: ssh2; Meine $ ssh = poE :: Komponente :: generic :: net :: ssh2-> erstellen (alias => 'my-ssh', bsose => 1, debug => 0); mein $ kanal; Poe :: session-> erstellen (inline_starts => {_start => sub {$ poe_kernel-> delay (connect ', $ n);}, connect => sub {$ ssh-> connect ({Event =>' verbunden '}, $ Host, $ Port);}, angeschlossen => sub {$ ssh-> auth_password ({Event => login'}, $ user, $ password);}, error => sub {My ($ resp , $ Code, $ name, $ error) = @_ ; Die "Error $ name ($ Code) $ Fehler";}, login => sub {my ($ resc, $ ok) = @_ ; es sei denn ($ ok) {$ ssh-> Fehler ({Ereignis => 'Fehler', W-SAgruray => 1}); RETURN;} $ poe_kernel-> rendite ('cmd_do' );}, ######################## cmd_do => sub {$ ssh-> cmd ({Ereignis => 'cmd_output', WantArray => 1}, "ls -l" ); Rückkehr;}, cmd_output => sub {My ($ resp, $ stdout, $ stderr) = @_ ; Warn "Inhalt des Home-Verzeichnisses für $ host: n $ stdoutn"; $ Poe_kernel-> Ausbeute ('EXEC_DO');}, EXEC_DO => SUB {$ ssh-> exec ({Event => 'EXEC_RUNN', W-SAgruray => 0}, "Cat -> $ Datei", stdoutevent => 'exe_stout ', Stderrevent =>' EXEC_STDERR ', CASICEVENT =>' EXEC_CLOSED ', ErrorEvent =>' EXECL_ERROR ');}, exe_running => su b {My ($ resc, $ CH) = @_ ; # Halten Sie den Kanal lebend $ channel = $ ch; $ channel-> schreiben ({}, "Inhalt der Datei"); $ channel-> send_eof ({}); }, EXEC_ERROR => SUB {MY ($ Code, $ Name, $ Saite) = @_ ; Die "Fehler: $ name $ string"; }, EXEC_STDERR => SUB {MY ($ Text, $ Bytes) = @_ ; Die "stderr: $ text"; Rückkehr; }, EXEC_STDOUT => SUB {MY ($ Text, $ Bytes) = @_ ; Warn "stdout: $ text"; Rückkehr; }, EXEC_CLOSED => SUB {undef ($ -Alkanal); $ ssh-> Herunterfahren; },}); Anforderungen: · Perl.
Poe :: Bauteil :: generic :: net :: ssh2 Zugehörige Software