hallo ich post einfach mal meinen ersten eintag
ich hab for kurtzem angefangen mich mit perl zu bescheftigen
und wolt ein kleines rat schreiben der soket funktionirt
auch so wie ich das will nur weis ich nicht wie ich dem server ne nachricht
schiken die der als befehl auf dem server ausführt und dan den client die
ausgebe des befehls schikt
hir is mal der client
Alles anzeigen
und hir is der server
Alles anzeigen
ihr müst mir keinen kompleten code posten wie das hin haut mir reichen eigentlich auch
kleine denk hilfen wie ich das verwirklichen kan das wo ich patu nicht drauf komme
ist wie er mir die ausgabe zurück an den client schikt
ich hoffe mal ihr könt alles lessen bin legasteniker
mfg benni
ich hab for kurtzem angefangen mich mit perl zu bescheftigen
und wolt ein kleines rat schreiben der soket funktionirt
auch so wie ich das will nur weis ich nicht wie ich dem server ne nachricht
schiken die der als befehl auf dem server ausführt und dan den client die
ausgebe des befehls schikt
hir is mal der client
Quellcode
- #tcpclient.pl
- use IO::Socket;
- $ip = 0;
- $port = 0;
- print 'Adresse eingeben: ';
- chomp ($ip = <STDIN>);
- print 'Port eingeben: ';
- chomp ($port = <STDIN>);
- $socket = new IO::Socket::INET (
- PeerAddr => $ip,
- PeerPort => $port,
- Proto => 'tcp',
- )
- or die "Keinen Server gefunden unter $ip:$port\n";
- $socket->recv($recv_data,1024);
- print "Info: $recv_data\n";
und hir is der server
Quellcode
- #tcpserver.pl
- use IO::Socket;
- $| = 1;
- $verbindung = "Verbindung hergestelt";
- $socket = new IO::Socket::INET (
- LocalPort => '5400',
- Proto => 'tcp',
- Listen => 5,
- Reuse => 1
- );
- die "Info: socket auf port 5400 kan nicht geöfnet werden" unless $socket;
- print "\nServer lauscht auf port 5400";
- while(1)
- {
- $client_socket = "";
- $client_socket = $socket->accept();
- $peer_address = $client_socket->peerhost();
- $peer_port = $client_socket->peerport();
- print "\n Eingehende verbindung fon: ( $peer_address , $peer_port ) ";
- $client_socket->send ($verbindung);
- }
ihr müst mir keinen kompleten code posten wie das hin haut mir reichen eigentlich auch
kleine denk hilfen wie ich das verwirklichen kan das wo ich patu nicht drauf komme
ist wie er mir die ausgabe zurück an den client schikt
ich hoffe mal ihr könt alles lessen bin legasteniker
mfg benni