Foro - Perl en Español

Etoy creando un módulo que usa Socket y en una parte hago esto:



Luego, lo llamo:



Pero por alguna razón me imprime el puntero, como si estuviera usando ref o algo así

¿Alguna idea?

Gracias.

El problema es que debes de pasar la referencia del socket, cambia la línea que dice:



por




Saludos

creating021 escribiste:Etoy creando un módulo que usa Socket y en una parte hago esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

#...
*Socket;
socket(*Socket, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or croak("Socket: $!");
$class->{Socket} = *Socket;
#resuelve y todo eso sin problema.

Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

Luego, lo llamo:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

sub Algo {
  my $class = shift;
  send($class->{Socket}, "Hola\n", 0) or corak ("send error: $!");
  while (my $linea = $class->{Socket} ){
    print $linea, "\n";
  }
}
 

Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

Pero por alguna razón me imprime el puntero, como si estuviera usando ref o algo así

¿Alguna idea?

Gracias.

Woah!!!

Quién te dijo que usaras esa nomenclatura? para qué necesitas un typeglob y almacenar allí el socket?

Hasta donde recuerdo, ni perldoc perlipc dice que lo hagas así y pasarlo como parámetro de esa manera. Eso se utilizaba hace años porque los handles con variables léxicas no era permitido (hablo de antes de 5.6). Así que mejor utiliza algo como esto:


Por cierto, te recomiendo que profundices un poco mas sobre objetos en Perl porque al parecer tienes pensado que pasas una clase como parámetro a un método (o al menos eso veo en tu ejemplo arriba), y lo que realmente pasas es un "objeto" (Sin hablar en el sentido estricto).

Por cierto.... tampoco son "punteros", no hay "punteros" en Perl.

Y como nota personal, te recomiendo que mejor le eches un vistazo a IO::Socket.

Saludos,[/syntax]

Así imprime (en el otro código) GLOB(0x81495a0)

Con las cosas no son muy distintas (GLOB(0x81bd1a8))

Creo que el problema esta en el while de Algo(), hmmm tendré que intentar usando recv

Gracias por los comentarios.

PD: IO::Socket me gusta mucho, pero para lo que voy hacer no me sirve (este programa de por si será grande y lo tengo que "compilar" con PAR)

creating021 escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

socket($sock, ...., .....) or ...;
$obj->{socket} = $sock;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Así imprime (en el otro código) GLOB(0x81495a0)

Con

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

$class->{Socket} = \*Socket;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

las cosas no son muy distintas (GLOB(0x81bd1a8))

Creo que el problema esta en el while de Algo(), hmmm tendré que intentar usando recv

Gracias por los comentarios.

PD: IO::Socket me gusta mucho, pero para lo que voy hacer no me sirve (este programa de por si será grande y lo tengo que "compilar" con PAR)

Creo que no comprendiste mi comentario y la corrección del código, usando una variable léxica ya no hay el problema de los typeglobs, pero bueno.

Por cierto, recv es para URGENT DATA principalmente, vas a usar algo al respecto?

Saludos,

No, no es para URGENT DATA.

También creo que no te he comprendido, lo he usado con variable pero me sigue saliendo lo mismo... GLOB(...) que es (*MyModulo::Algo::$socket) pero no lo puedo usar como un File_Handled.

Qué estaré haciendo de mal?