Serveur TCP multiple recevoir et répondre

Question

Je tente d'émuler un serveur TCP sur le même ordinateur sur lequel l'application est en cours d'exécution. Je ne sais pas si cela peut être fait en Perl parce que je ne suis pas très expérimenté. Avec le code ci-dessous, la première réponse fonctionne mais je ne sais pas comment implémenter la seconde.

#!/usr/bin/perl -w 

use IO::Socket::INET; 
use strict; 


my $socket = IO::Socket::INET->new('LocalPort' => '3000', 
        'Proto' => 'tcp', 
        'Listen' => SOMAXCONN) 
    or die "Can't create socket ($!)\n"; 
print "Server listening\n"; 
while (my $client = $socket->accept) { 
    my $name = gethostbyaddr($client->peeraddr, AF_INET); 
    my $port = $client->peerport; 
    while (<$client>) { 
    print "$_"; 
    print $client "RESPONSE1"; 
    } 
    close $client 
    or die "Can't close ($!)\n"; 
} 
die "Can't accept socket ($!)\n"; 

EDIT: Merci les gars pour l'imput, je me suis retrouvé avec php fait et son travail, yay!

Answer 1

Utilisez Net::Server pour la connexion, et une variable dans le sous pour conserver l'état actuel (état $ dans ce code); quelque chose comme ceci:

package MyServer; 
use base qw/Net::Server/; 
use strict; 
use warnings; 

sub process_request { 
    my $self = shift; 
    my $state = 0; 
    while (<STDIN>) { 
    s/\r?\n$//; # like chomp but for crlf too 
    if ($state == 0 and $_ eq 'data1') { 
     print "> okay1\n"; 
     $state++; 
    } elsif ($state == 1 and $_ eq 'data2') { 
     print "> okay2\n"; 
     $state++; 
    } else { 
     last if $state == 2; 
     $state = 0; 
    } 
    } 
} 

my $port = shift || 3000; 
MyServer->run(port => $port); 

L'exemple dans le Net :: serveur POD à l'aide d'une alarme suggère de délai d'attente des connexions, ce qui pourrait être appropriée ici. Le code ci-dessus fait ce qui suit:

$ nc localhost 3000 
data1 
> okay1 
data2 
> okay2 
data3 
$ 

Et si vous avez besoin de passer à un fork/preforking/non-blocage/co-routine système piloté, il y a une personnalité Net :: Server pour cela.

Answer 2

"prêt à aller" code:

package MyServer; 
use base qw/Net::Server/; 
use strict; 
use warnings; 

sub process_request { 
    my $self = shift; 
    my $state = 0; 
    $| = 1; 
    binmode *STDIN; 
    while (read(*STDIN, local $_, 3)) { 
    if ($state == 0 and $_ eq "\x{de}\x{c0}\x{ad}") { 
     print "\x{c4}\x{1a}\x{20}\x{de}"; 
     $state++; 
    } elsif ($state == 1 and $_ eq "\x{18}\x{c0}\x{0a}") { 
     print "\x{11}\x{01}\x{73}\x{93}"; 
     $state++; 
     last; 
    } 
    } 
} 

my $port = shift || 3000; 
MyServer->run(port => $port); 

Answer 3

Il me semble process_request sous ne fonctionne pas correctement lorsqu'un port bas est réglé (dans ma situation, port 23). En particulier, avec un port bas, lors de l'analyse de l'entrée de données, la première requête contient des caractères supplémentaires (mais tout va bien avec les requêtes suivantes). Avez-vous un pourboire? Merci