Hi Leute
Hab erst mit Perl angefangen, hab ein kleines Problem.
Mein Server soll einen Text an den Client schicken, wie geht dies?
Hab noch keine Vorstellungen wie ich das mache, daher poste ich hier meinen Server code, den könnt ihr dann etwas ändern und rein proggen wie das geht!
THX
Hab erst mit Perl angefangen, hab ein kleines Problem.
Mein Server soll einen Text an den Client schicken, wie geht dies?
Hab noch keine Vorstellungen wie ich das mache, daher poste ich hier meinen Server code, den könnt ihr dann etwas ändern und rein proggen wie das geht!
THX
PHP:
#!/usr/bin/perl
use IO::Socket;
$SIG{CHLD} = sub {wait ()};
$main_sock = new IO::Socket::INET (LocalHost => 'localhost',
LocalPort => 1304,
Proto => 'tcp',
Listen => 5,
);
die "Server konnte nicht erstellt werden!" unless $main_sock;
print "\nServer wurde gestartet\n";
while ($client = $main_sock->accept()) {
$client->peerhost(), ":", $client->peerport(), "\n";
$pid = fork();
die "Fehler" unless defined($pid);
$accept_ToU=0;
while (defined ($ClientText = <$client> )) {
chomp;
print "Vom Client: $ClientText";
}
exit(0);
}
close ($main_sock);
