verbindungsorientierter perl 'server'

[namous]

Ich hab mir (zugegeben mit copy&past) in C einen Client fuer Windows erstellt, der Verbindung zu meinem Perl-Server aufnehmen kann/soll.

Zuerst mal der C-Code des Clients:

#include <windows.h>
#include <winsock2.h>
#include <stdio.h>

int startWinsock(void);

int main()
{
  long rc;

  SOCKET s;

	SOCKADDR_IN addr;

  rc=startWinsock();

  if(rc!=0)
  {
    printf("Fehler: startWinsock, fehler code: %d\n",rc);
    return 1;
  }
  else
  {
    printf("Winsock gestartet!\n");
  }

	s=socket(AF_INET,SOCK_STREAM,0);

	if(s==INVALID_SOCKET)
	{
		printf("Fehler: Der Socket konnte nicht erstellt werden, fehler code: %d\n",WSAGetLastError());

		return 1;
	}
	else
	{
		printf("Socket erstellt!\n");
	}

	memset(&addr,0,sizeof(SOCKADDR_IN)); // zuerst alles auf 0 setzten
	addr.sin_family=AF_INET;
	addr.sin_port=htons(12345); // wir verwenden mal port 12345
	addr.sin_addr.s_addr=inet_addr("84.16.229.137"); // zielrechner ist unser eigener

	rc=connect(s,(SOCKADDR*)&addr,sizeof(SOCKADDR));

	if(rc==SOCKET_ERROR)
	{
		printf("Fehler: connect gescheitert, fehler code: %d\n",WSAGetLastError());
		return 1;
	}
	else
	{
		printf("Verbunden.\n");

		char buf[256];
		strcpy(buf, "Halllooo");
		send(s,buf,7,0);
	}

	return 0;
}

int startWinsock(void)
{
  WSADATA wsa;

  return WSAStartup(MAKEWORD(2,0),&wsa);
}

Wenn ich das richtig sehe, ist die Verbindung verbindungsorientiert. Ich hab schon erfahrungen mit nicht-verbindungsorientierten Server in Perl, siehe:

use strict;
use IO::Socket;

my $sock = IO::Socket::INET->new(       Listen          => 5,
                                        LocalAddr       => '84.1*.***.***',
                                        LocalPort       => 12345,
                                        Proto           => 'tcp');

while(my $client = $sock->accept())
{
  my $msg = <$client>;
  print $msg;
}

Ich hab auch schon diverse Versuche unternommen, einen verbindungsorientierten Server hinzubekommen, hat aber leider nicht geklappt. Hier mal mein letzter Versuch:

use strict;
use IO::Socket;

socket(Server, AF_INET, SOCK_STREAM, getprotobyname('tcp')) || die("socket: $!");
setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die("setsockopt: $
!");
bind(Server, sockaddr_in(12345, INADDR_ANY)) || die("bind: $!");
listen(Server, SOMAXCONN) || die("listen: $!");

for(;;)
{
        accept(Client, Server);
        my $msg;
        recv(Server, $msg, 5, 0);
        print $msg;
}

Koenntet ihr mir bitte weiterhelfen, den Perl-Server zu erstellen? Ich waere euch sehr dankbar.

MfG namous

[michael.sprick]

Erstmal musst Du natürlich sicherstellen, dass Server und client auch den gleichen Port benutzen.

Im Client versuchst Du Dich zu TCP-Port 12345 zu verbinden, im Serverskript öffnest Du aber einen ganz anderen Port...

UND: Der Port, den Du im Server öffnest ist ziemlich weit out-of-range --- also ungültig. Im TCP Stack stehen 16Bit für den TCP Port zur Verfügung - mit anderen Worten, die höchste Portnummer, die Du nutzen kannst, ist 65535.

Außerdem bindest du den Server ja an eine ganz andere IP Adresse, als die, die zu der Du im Client eine Verbindung aufbauen willst... auch bitte bitte erstmal nachbessern.

Zuletzt wären natürlich Fehlermeldungen oder eine Beschreibung Deines Problems ganz hilfreich ...

[namous]

Joa, ich hab mit den Sourcen gleich weitergetestet und noch andere Sachen versucht, an sich haben die schon immer gestimmt. Ich hab es oben editiert, nu ist es so wie ichs getestet hab und es nicht lief. Naja das mit den Fehlermeldung ist so ein Problem, da kommen ja keine. Aber ich kann euch sagen, was die Programme/Skripte machen, der Client sagt:

Winsock gestartet!
Socket erstellt!
Verbunden.

Aber nur, wenn der Server auch laeuft, also ist wohl so eine Art verbindung schon da. Und der Server sagt einfach garnix und laeuft, bis ihn kill.

MfG namous

[namous]

Ok, Ok, wollt nicht dumpen, also hab ich weiter getestet und bin weiter gekommen. Mein Problem nun: Ich hab den Perl-Server und den C-Client, der Server schickt an den Client und der kann mir die gesendete Daten ausgeben, aber ich bekomms nicht hin, vom Client an den Server zu schicken, bzw. bekomm ich es nicht hin, dass der Server die Daten ausgibt/empfaengt. Hier der Code, die kommentierten Zeile sind die, bei denen der Server schickt und der Client empfaengt, was funktioniert.

C-Client

#include <stdio.h>
#include <winsock2.h>

#define  SERVER_PORT             1234
#define  RECV_BUF_MAXLEN         256

long WinsockStartup();

int main()
{
    SOCKET sock;
    SOCKADDR_IN addr;
    long   rc;
    char recvBuf[RECV_BUF_MAXLEN+1];
    char hostAdress[] = "84.16.***.***";

    rc = WinsockStartup();

    // socket anlegen
    sock=socket(AF_INET,SOCK_STREAM,NULL);

    /* Informationen fuer Verbindung */
    addr.sin_family      = AF_INET;
    addr.sin_port        = htons(SERVER_PORT);
    addr.sin_addr.s_addr = inet_addr(hostAdress);

    // socket mit Server verbinden, endlos immer wieder probieren
    while(
        connect(sock, (SOCKADDR*)&addr, sizeof(SOCKADDR))
              == SOCKET_ERROR)
    {
        printf(".");    // Lebenszeichen ausgeben
        Sleep( 500 );   // 500ms warten
    }
    // Server gefunden
    printf("Verbunden mit %s ...\n", hostAdress);
    //Nachricht abholen und ausgeben
	//rc = recv(sock, recvBuf, RECV_BUF_MAXLEN, NULL);
	//recvBuf[rc] = '\0';
    //printf("%d Byte empfangen: %s\n", rc, recvBuf );
    strcpy(recvBuf, "jupiii");
    send(sock, recvBuf, 5, NULL);

}
/* *************************************************
* Starte Socket Service unter Windows
*/
long WinsockStartup()
{
    long rc;

    /* gewünschte Version */
    WORD wVersionRequested;
    /* Datenstruktur fuer Info ueber Version */
    WSADATA wsaData;

    wVersionRequested = MAKEWORD(2, 1);  /* Short Wert aus 2 Bytes */

    rc = WSAStartup( wVersionRequested, &wsaData );
    return rc;
}

Perl-Server

use strict;
use IO::Socket;

my $sock = IO::Socket::INET->new(Listen => 5, LocalAddr => '84.16.***.***', Loca
lPort => 1234, Proto => 'tcp');

while(my $client = $sock->accept())
{
#  send($client, "hallofobar", '');
  my $msg;
  recv($client, $msg, 4, 0);
  print $msg."foo";
}

PS: Will spaeter auch Datein hin und her senden koennen, wie und wo steig ich da am Besten ein?