IO::Socket::SSL Client (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]19729[/thread]

IO::Socket::SSL Client

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+3 replies
Gast Thomas

2015-07-16 16:50
Hallo, ich habe schon kleinere Sachen in Perl programmiert und möchte jetzt ein Skript schreiben, dass wie eine telnet oder ssh Sitzung funktioniert, nur eben über openssl. Also Verbindung aufbauen, Befehle absenden und die Rückantwort jeweils erhalten. In dem Skript unten hätte ich gerne das Ergebnis von ListUsers. Dann wieder etwas abfragen usw. Das klappt leider nicht wenn ich unter ListUsers ein print <$client>; einfüge. Tatsächlich passiert dann bis zum Timeout gar nichts mehr. Vielen Dank im vorraus und viele Grüße Thomas
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/usr/bin/perl use strict; use warnings; use IO::Socket::SSL; my $client = IO::Socket::SSL->new('localhost:355')or die "error=$!, ssl_error=$SSL_ERROR"; print $client "USER NAME\n"; print $client "PASS PASSWORT\n"; print $client "ListUsers\n"; # Beispiel Kommando 1 print $client "ListDomains\n"; # Beispiel Kommando 2 print $client "QUIT\n"; # beenden print <$client>; # Inhalt der Sitzung ausgeben.
Last edited: 2015-07-16 17:44:35 +0200 (CEST)
- jan
  
  2015-07-16 19:45
  
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  
  Was würde der Service denn antworten sollen? Genau eine Zeile?
- Gast Steffen Ullrich
  
  2015-07-20 22:36
  Quote
  
  Code: (dl )
  
  print <$client>; # Inhalt der Sitzung ausgeben.
  
  print führt das <$client> im Array-Kontext aus, was dazu führt das der Prozess solange wartet, bis der Socket geschlossen ist. Wenn Du genau eine Zeile lesen willst musst Du den scalaren Kontext forcieren, z.B. mit
  
  Code: (dl )
  
  print ''.<$client>;
  
  Last edited: 2015-07-20 22:46:12 +0200 (CEST)

View all threads created 2015-07-16 16:50.