Leser: 6
|< 1 2 3 4 >| | 36 Einträge, 4 Seiten |
QuoteDoch leider funktioniert das nicht ...
Hat jemand eine Idee, wie warum das bei mir nicht geht ...
1 2 3 4
$opt_configfile = "./config.conf"; # $opt_libdir - Zusatzmodule $opt_libdir = "./";
1 2 3 4 5 6 7
if ($s_ip) { my $ip = $s_ip . ":"; } else { my $ip = "port "; } my $s_socket = IO::Socket::INET->new( Proto=>"udp", LocalAddr=>"$s_ip", LocalPort=>"$s_port" ) or die ("\nCan't setup UDP socket on ".my $ip.":$s_port $!\n");
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
#!/usr/bin/perl use strict; use warnings; use IO::Socket; use IO::Select; use IO::Handle; my $g_masterserver_address = "******"; my $g_masterserver_port = "27501"; my $timeout = 0; my $address = $g_masterserver_address; my $port = $g_masterserver_port; my $dest = sockaddr_in($port, inet_aton($address)); my ($rin, $rout, $test); my $msg = chr(0xff).chr(0xff)."Z".chr(0xff); my $s_socket; my $proto = getprotobyname('udp'); socket($s_socket, AF_INET, SOCK_DGRAM, $proto); my $bytes = send($s_socket, $msg, 0, $dest); print("sent $bytes bytes to '$address:$port'"); my $buffer = ''; my $s_output; while (my $rc = $s_socket->recv($s_output, 1024) ) { print $s_output; $buffer .= $s_output; } exit(0);
H3llGhost+2008-06-07 22:30:05--Ja, dass es die Methode in "IO::Handle" nicht gibt!Die Fehlermeldung die ich bekomme ist folgende:
Can't locate object method "recv" via package "IO::Handle" at test.pl line 29.
Weiß jemand was das bedeutet?
QuoteIch habe doch das package IO::Handle eingebunden oder?
H3llGhost+2008-06-07 23:06:58--Da steht aber auch nix von recvIch bin immer nach der Anleitung hier gegangen.
http://perldoc.perl.org/functions/send.html
QuoteFrag mich nicht warum der andauernd einen Fehler mit dem Handle ausgibt, selbst wenn ich oben das use IO::Handle entferne kommt der selbe Fehler ...
|< 1 2 3 4 >| | 36 Einträge, 4 Seiten |