Leser: 1
|< 1 2 3 4 5 6 7 >| | 62 Einträge, 7 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
use IO::Socket; use strict; my $socket = new IO::Socket::INET (PeerAddr =>'PC110197',PeerPort => 1810) or die "Konnte Socket nicht erstellen: $!\n"; $socket->autoflush(1); my $line; print "Sende ein Client Create zum Server\n"; print $socket "CLIENT CREATE\n"; $socket->recv($line,10); print "$line\n"; print "Sende ein CONNECT zum Server\n"; print $socket "CONNECT\n"; $socket->recv($line,10); print "$line\n"; print "Sende ein DISCONNECT zum Server\n"; print $socket "DISCONNECT\n"; $socket->recv($line,10); print "$line\n"; print "Sende ein CONNECT zum Server\n"; print $socket "CONNECT\n"; &getlinefromsocket ($socket); print "Sende ein DISCONNECT zum Server\n"; print $socket "DISCONNECT\n"; $socket->recv($line,10); print "$line\n"; print "Sende ein END SESSION zum Server\n"; print $socket "END SESSION\n"; $socket->recv($line,10); print "$line\n"; $socket->close(); sub getlinefromsocket { my $socket = shift; my $buffer; my $char; while ($socket->recv($char,1)) { $buffer.=$char; } }
&getlinefromsocket ($socket);
1 2 3 4 5 6 7
sub getlinefromsocket ($socket) { my $buffer; my $char; while ($socket->recv($char,1)) { $buffer.=$char; } }
grey1987+2007-11-26 15:33:57--oder kann mir villeicht einer zeile für zeile erklären was das hier überhaupt macht:
Code (perl): (dl )1 2 3 4 5 6 7sub getlinefromsocket ($socket) { my $buffer; my $char; while ($socket->recv($char,1)) { $buffer.=$char; } }
danke schon mal
1 2 3 4 5 6 7 8 9 10 11 12 13
my $anzahl = 3; getlinefromsocket( $socket, $anzahl); sub getlinefromsocket{ my ($socket,$anz) = @_; my $buffer; my $char; while ($socket->recv($char,1)) { $buffer.=$char; last if length $buffer == $anz; } print $buffer; }
|< 1 2 3 4 5 6 7 >| | 62 Einträge, 7 Seiten |