Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]4287[/thread]

Socket bleibt hängen: Abbruchtimeout usw.



<< >> 1 Eintrag, 1 Seite
Gast Gast
 2004-06-10 13:11
#37104 #37104
Hallo!

Ich habe folgendes Problem:

Ich möchte eine Netbios-Session auf einen Rechner starten.
Bei Windows krieg ich auch eine Antwort leider bleibt das komplette Programm z.B. bei SunOS stehen.
Der Socket wird zwar inititalisiert aber es kommt keine Antwort, sondern nur ein TCP-ACK.
Die Timeout-Option funktioniert leider genauso wenig wie die Änderung des Buffersize beim recieve.

Habt ihr einen Tip wie ich einen Timeout setzen kann oder einfach beim Hängenbleiben einen Abbruch erzwinge?
Das Prog läuft unter Windows



Code: (dl )
1
2
3
4
5
6
7
8
9
$sock = new IO::Socket::INET (  PeerAddr => $ipreal,
PeerPort => 139,
Proto => "tcp",
Timeout => 1,
Type => SOCK_STREAM);

if ($sock) {$|=1;
     print "\nstarte prerequest\n";
if ($sock->send($prerequest)){$sock->recv($data,1);}
<< >> 1 Eintrag, 1 Seite



View all threads created 2004-06-10 13:11.