Foro - Perl en Español

Publicado: **2015-01-01 21:54 @954**

Un saludo, ayúdenme con una cosita.

Estoy intentando crear un 'servidor' para escuchar conexiones desde un 'cliente'.

Básicamente, lo que hago en pedir la conexión por el puerto 3220 del servidor local y escuchar las conexiones, en el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use POSIX;
use IO::Socket;
use IO::Select;
use Socket;
 
 
my $s = IO::Socket::INET->new(LocalPort=>3220,Proto=>'tcp',Reuse=>1,Listen=>1,Type=>SOCK_STREAM) or print "ERROR: $!\n";
$select = IO::Select->new($s);
 
for (;;) {
        foreach $cliente ($select->can_read(1)) {
                if ($cliente == $server) {
                        $cliente = $server->accept();
                        $select->add($cliente);
                }
                else {
                        $rv = $cliente->recv($data, POSIX::BUFSIZ, 0);
                        print $rv . "->" . $data . "\n";
                        last;
                }
        }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero no logro obtener los datos que manda el 'cliente'.

NOTA: La conexión al 'servidor' la efectúo desde un cliente IRC. Quiero obtener los datos de registro, como 'NICK', 'USER', etc.

Gracias de antemano.

Publicado: **2015-01-03 15:34 @690**

Solucionado.

Publicado: **2015-01-03 19:40 @861**

¿Y cómo?

Publicado: **2015-01-03 22:34 @982**

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for (;;) {
    my $client;
    my $rv;
    my $data;
    foreach $client ($select->can_read(1)) {
 
        if ($client == $server) {
            #Una nueva conexión
            $client = $server->accept();
 
            $select->add($client);
            nonblock($client);
        } else {
            #Veamos si nos chivan algo :D
            $data = '';
            $rv   = $client->recv($data, POSIX::BUFSIZ, 0);
 
            unless (defined($rv) && length $data) {
                #Si no hay nada, pues nada... caña XD
                delete $inbuffer{$client};
                delete $outbuffer{$client};
                delete $ready{$client};
 
                $select->remove($client);
                close $client;
                next;
            }
 
            $inbuffer{$client} .= $data;
            #Paso a verificar si existe alguna petición...
            while ($inbuffer{$client} =~ s/(.*\n)//) {
                push( @{$ready{$client}}, $1 ); #Agregamos la petición a la cola
            }
        }
    }
    foreach $client (keys %ready) {
        #handle($client);
        #Leemos lo que se nos envia.
    }
    foreach $client ($select->can_write(1)) {
          $client->send("Me aseguro que puedo enviar info\n", 0);
    }
}
 
sub handle {
    my $client = shift; #Quien conecta
    my $request; #Lo que nos chiva
 
    foreach $request (@{$ready{$client}}) {
        chomp $request;
        cmds($client, $request); #Aqui busco los comandos.
    }
    delete $ready{$client};
}
sub cmds {
 
    my ($client, $request) = @_;
    print $request . "\n";
 
    if ($ping_user{$client} < 1) {
      $client->send(":irc.pruebas.org NOTICE IP_LOOKUP :*** Verificando la conexión.\n",0);
      $client->send(":irc.pruebas.org NOTICE IP_LOOKUP :*** Escaneando...\n",0);
      $client->send("PING :OK\n",0);
      $ping_user{$client} = 1;
    }
    if (length($request) ne 0) {
        chomp $request;
        my @msg = split(" ", $request);
        if($msg[0] eq 'PONG') {
           msgping($client, @msg);
        } elsif ($msg[0] eq 'NICK') {
           register($client, @msg);
        } elsif ($msg[0] eq 'USER') {
           $users{$client}->{'ident'} = parse($msg[1]);
           $users{$client}->{'localhost'} = parse($msg[2]); 
           $users{$client}->{'ip_host'} = parse($msg[3]);
           $users{$client}->{'realname'} = substr($request,index($request,":")+1,length($request)-index($request,":"));
           $users_record++;
 
        }
    }
}
sub msgping {
  my($client,$msg) = @_;
  $client->send("Vale, reconocido\n",0);
}
 
sub parse {
  my($parsed) = shift;
  $parsed =~ s/\"//g;
  return $parsed;
}
 
#Me aseguro que lo que reciba a travez de 'NICK'
#Sea en formato 'NICK :apodo' ó 'NICK :apodo:pass' ó 'NICK :apodo!pass'
sub parse_comodin {
  my($parseado) = shift;
  $parseado =~ s/^://;
  if ($parseado =~ /^([a-zA-Z0-9]+):([a-zA-Z0-9]+)$/) {
    return 1;
  } elsif ($parseado =~ /^([a-zA-Z0-9]+)!([a-zA-Z0-9]+)$/) {
    return 2;
  } elsif ($parseado =~ /^([a-zA-Z0-9]+)$/) {
    return 0;
  }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Publicado: **2015-01-04 07:50 @368**

Son muchas líneas.

Por estos hilos hay algunos temas dedicados al IRC. Por ejemplo, hay uno llamado [IRC]Bot que responda. Ahí tengo un ejemplo hecho con Bot::BasicBot, que permite escribir bots de forma sencilla.

En MetaCPAN hay más, como por ejemplo Mojo::IRC.

Publicado: **2015-01-04 17:06 @754**

explorer escribiste:Son muchas líneas.

Por estos hilos hay algunos temas dedicados al IRC. Por ejemplo, hay uno llamado [IRC]Bot que responda. Ahí tengo un ejemplo hecho con Bot::BasicBot, que permite escribir bots de forma sencilla.

En MetaCPAN hay más, como por ejemplo Mojo::IRC.

Lo que yo estoy intentando, es pasar de los IRCD escritos en C, a Perl.
Gestionar las conexiones de los clientes, que me sugeriste en los ejemplos anteriores.

Foro - Perl en Español

Socket - Escuchar, aceptar, leer, y enviar datos

Socket - Escuchar, aceptar, leer, y enviar datos

Re: Socket - Escuchar, aceptar, leer, y enviar datos

Re: Socket - Escuchar, aceptar, leer, y enviar datos

Re: Socket - Escuchar, aceptar, leer, y enviar datos

Re: Socket - Escuchar, aceptar, leer, y enviar datos

Re: Socket - Escuchar, aceptar, leer, y enviar datos