Manipulação de sockets em Perl usando o IO::Socket::INET

guinter

Resolvi escrever esse artigo sobre manipulação de sockets em Perl usando o IO::Socket::INET para ajudar os novatos, já que a maioria dos artigos existentes são em inglês, dificultando a leitura de muitos.

[ Hits: 18.957 ]

Por: Guinter Giuliano em 15/07/2008

1 0

Denuncie Favoritos Indicar Impressora

Exemplo de um cliente e servidor

Servidor:

#! /usr/bin/perl

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

my $server_socket = IO::Socket::INET->new(
'LocalPort' => '2008',
'Proto' => 'tcp',
'Reuse' => 1,
'Listen' => SOMAXCONN
) or die "Não foi possível criar o socket. ($!)\n";

print "Servidor iniciado.\n";

while (my $cliente = $server_socket->accept){
while (<$cliente>) {
print "Mensagem recebida: $_";
print $cliente "Mensagem enviada: $_ ";
}

Cliente:

#! /usr/bin/perl

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

my $cliente_socket = IO::Socket::INET->new(
'PeerAddr' => 'localhost',
'PeerPort' => '2008',
'Proto' => 'tcp'
) or die "Não foi possível criar o socket. ($!)\n";

print "Digite sua mensagem e aperte enter.\n";

while (<STDIN>)
{print $cliente_socket $_;
print scalar <$cliente_socket>;}

Espero que vocês tenham gostado desse artigo, que apesar de estar bem simples, dá para tirar algumas dúvidas dos iniciantes de como usar o IO::Socket::INET.

Até a próxima!

Página anterior

Páginas do artigo

1. Criação do IO::Socket::INET
2. Exemplo de um cliente e servidor

Outros artigos deste autor

Nenhum artigo encontrado.

Leitura recomendada

Instalação de MRTG em ambiente Windows

Impressão remota via WEB

Enviando notificações do Nagios para o MSN

Gerenciando redes com Perl e SNMP

Perl e MySQL

Comentários

[1] Comentário enviado por roberva em 16/07/2008 - 10:52h

Ótimo artigo, parabéns e aguardo o próximo.

Correção para o amigo:

no final do script de servidor faltou o fechamento do statement: "{"
Segue o corrigido.

Servidor:

#! /usr/bin/perl

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

my $server_socket = IO::Socket::INET->new(
'LocalPort' => '2008',
'Proto' => 'tcp',
'Reuse' => 1,
'Listen' => SOMAXCONN
) or die "Não foi possível criar o socket. ($!)\n";

print "Servidor iniciado.\n";

while (my $cliente = $server_socket->accept){
while (<$cliente>) {
print "Mensagem recebida: $_";
print $cliente "Mensagem enviada: $_ ";
}
}

0 0

[2] Comentário enviado por unixtm em 17/07/2008 - 12:55h

Gostei, ótimo artigo.. Perl é ótimo para trabalhos que usem sockets =)

0 0

[3] Comentário enviado por chartrand em 26/10/2009 - 12:57h

amigo, gostaria de saber se existe uma forma de eu conectar um socket no perl usando um proxy. Tipo, a porta que quero conectar é bloqueada aqui, então eu queria usar um proxy transparente(?) pra fazer essa conexão. Entende?

0 0