IO::Select und IO::Socket (Perl/CGI)

[thread]10891[/thread]

IO::Select und IO::Socket

Leser: 2

Gast Gast

2007-11-26 09:07

hallo,
ich will mit einem Server verbinden:

Code (perl): (dl )

use strict;
use IO::Socket;
IO::Select;

my $socket = IO::Socket::INET -> new 
(PeerAddr =>'PC110197',
PeerPort => 1810,) 
or die "Konnte Socket nicht erstellen: $!\n";

klappt auch!

jetzt will ich aber noch CLIENT CREATE hischicken und die Anwort haben.
und die Antwort bekommt man irgendwie mit select.
weis jemand wie das geht?

grey1987

2007-11-26 09:29

User since
2007-11-21
83 Artikel
BenutzerIn
[default_avatar]

ich bin Gast....

also ich hab jetzt folgendes:

Code (perl): (dl )

use IO::Socket;
use IO::Select;

$socket = IO::Socket::INET -> new 
(PeerAddr =>'PC110197',
PeerPort => 1810,) 
or die "Konnte Socket nicht erstellen: $!\n";
$socket -> print ("CLIENT CREATE");

$select = new IO::Select ($socket);
while(@ready = $select->can_read) {
  foreach $fh (@ready) {
    if ($fh == $socket) {
      $new = $socket -> accept;
      $select -> add ($new);
    }
    else {
      $select -> remove ($fh);
      fh -> close;
    }
  }
}

kann mir jemand paar vorschläge geben, wie ich das auch zu laufen bekomme.
denn wenn ich dieses Programm ausführe, passiert gar nix.

grey1987

2007-11-26 11:06

User since
2007-11-21
83 Artikel
BenutzerIn
[default_avatar]

ok hab jetzt folgendes

Code (perl): (dl )

use IO::Socket;
use IO::Select;

$socket = IO::Socket::INET -> new 
(PeerAddr =>'PC110197',
PeerPort => 1810,) 
or die "Konnte Socket nicht erstellen: $!\n";
$select = new IO::Select new;
print $socket "CLIENT CREATE\n";


while ($line = <$socket>) {
  print $line;
}

der gibt mir jetzt

Code: (dl )

ACK ETIMEOUT

aus.
ich will jetzt aber mit diesem select zeichen für zeichen verarbeiten.
bzw ich will nur dies ACK haben.
Aber das soll nicht mit split oder so gemacht werden.
ich will diese ACK verabeiten, bevor der timout kommt.
hat niemand eine idee?

View all threads created 2007-11-26 09:07.