Connexion de socket Perl

Question

Est-il possible de créer une connexion de socket à un port ouvert sur un périphérique final?

Si la connexion tombe, imprimez quelque chose?

J'ai vu quelques exemples mais ils nécessitent un script de type serveur et un client, juste à la recherche d'un client.

Merci

Answer 1

Perl a prises directement intégré à elle. Vous avez juste besoin de charger le module standard Socket.pm pour obtenir les constantes dont vous avez besoin. La page de manuel perlipc vous explique tout cela Cependant, il existe de nombreux modules de niveau supérieur qui sont plus faciles à utiliser que les modules intégrés. Certains sont même standard.

Voici un exemple CLI:

% perl -MIO::Socket::INET -E '$him = new IO::Socket::INET "localhost:daytime" // die; print while <$him>' 
Tue Jun 28 08:17:13 2011 

Answer 2

Pensez à utiliser le module IO::Socket::INET, http://www.thegeekstuff.com/2010/07/perl-tcp-udp-socket-programming/

Answer 3

Une variante de cela pourrait répondre à vos besoins:

use strict; 
use warnings; 
use constant 
    { SOCKET_ERROR_MESSAGE => 'Some socket error message right here!' 
    , YOU_WANT_TO   => 1 
    }; 

use IO::Select; 
use IO::Socket::INET; 

@ARGV = qw<server.domain.tld 8080> unless @ARGV; 

sub handle_server_message { 
    ... 
} 

my $sel 
    = IO::Select->new(
     IO::Socket::INET->new( 
     PeerAddr => shift 
    , PeerPort => shift 
    )); 

# block until the server sends something that can be read. 
while (my ($sock) = $sel->can_read) { 
    # you could just do this with $sock->eof... 
    if ($sock->error and $sock->eof) { 
     die MY_ERROR_MESSAGE if YOU_WANT_TO; 
     print MY_ERROR_MESSAGE; 
    } 
    else { 
     handle_server_message($sock); 
    } 
}