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.
*Socket;
socket(*Socket, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or croak("Socket: $!");
$class->{Socket} = *Socket;
#resuelve y todo eso sin problema.
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Luego, lo llamo:
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";
}
}
my $class = shift;
send($class->{Socket}, "Hola\n", 0) or corak ("send error: $!");
while (my $linea = $class->{Socket} ){
print $linea, "\n";
}
}
Coloreado en 0.001 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.