Foro - Perl en Español

por **explorer** » 2009-12-11 04:53 @245

Por favor, sería muy ilustrativo saber el contenido del error que te muestra.

El problema de este código es que no envía "Consulta" hasta haber recibido algo desde el servidor.

#!/usr/bin/perl -w
 
# client2way.pl - a client that writes to
 
# and reads from a server
 
use strict;
 
use IO::Socket;
 
print "content-type: text/html \n\n";
 
my $host = shift || '192.168.2.114';
 
my $port = shift || 12000;
 
my $sock = new IO::Socket::INET(
                  
                  Blocking=>1,
 
                  PeerAddr => $host,
 
                  PeerPort => $port,
 
                  Proto    => 'tcp');
 
# send message to server
 
print $sock "Consulta";
 
print scalar <$sock>;
 
close $sock;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El tema es este:
Cuando abro esta página se queda esperando a localhost... Cuando cierro el server en Windows me muestra en Linux la consulta... La idea es que me muestre la hora sin tener que cerrar dicho server... Gracias.

por **arnedis** » 2009-12-11 11:09 @506

Creo que omití un detalle... el server en Windows está hecho en Visual Basic... o en Visual Studio... ¿puede llegar a ser este el problema?

por **explorer** » 2009-12-11 11:15 @510

Bien... la pregunta esencial se refiere a cómo es el protocolo...

* Tienes que enviar la palabra 'Consulta', pero, ¿es "Consulta" o "Consulta\n"? Tal como lo tienes ahora, estás enviando "Consulta".

* Por lo mismo, el servidor, cuando responde, ¿lo hace con un texto terminado en un carácter fin de línea?

* Además, ¿hay más comunicaciones a partir de ese momento?

Veo en la documentación de que IO::Sockect::INET de que a partir de la versión 1.18 viene con el autoflush() activado por defecto. Si no te fías, ponle

$sock->autoflush(1);

justo después de haber creado el objeto. Pon también

$|++;

al principio del programa, para hacer el autoflush también en la salida estándar.

El hecho de que el texto no salga hasta que cierras el servidor, es que éste sí que ha enviado el texto al Linux, pero el cliente en Linux no se ha enterado de que ha terminado de llegar el mensaje. Esto es lo que sucede cuando el servidor envía algo, pero el cliente espera algo que esté terminado en un carácter de fin de línea. En tu programa tienes puesto:

print scalar <$sock>;

Esa línea espera por un texto enviado por el $sock, que esté terminado en un carácter fin de línea. No te olvides de poner el $|++;.

El que esté hecho en Visual Basic, no importa, si está claro el protocolo. Eso quiere decir que tenemos que tener muy claros qué bytes se intercambian entre sí.

Actualización: el print() del Content-type no te sirve para nada, si ejecutas el programa desde la línea de comandos... porque ¿estás ejecutando el programa Perl desde la línea de comandos, verdad?

por **arnedis** » 2009-12-11 11:53 @537

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
# client2way.pl - a client that writes to
 
# and reads from a server
 
use strict;
 
use IO::Socket;
$|++;
print "content-type: text/html \n\n";
 
my $host = shift || '192.168.2.114';
 
my $port = shift || 12000;
 
my $sock = new IO::Socket::INET(
 
                  Blocking=>1,
 
                  PeerAddr => $host,
 
                  PeerPort => $port,
 
                  Proto    => 'tcp');
$sock->autoflush(1);
 
# send message to server
 
print $sock "Consulta";
 
print scalar <$sock>;
 
close $sock;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora me quedo así... probé con "Consulta\n" y el server, luego de cerrarlo me dice "No entiendo!" entonces le saqué el "\n"... sigue esperando al localhost. Gracias.

Actualización: Ejecuto desde el Mozilla Firefox mi cliente por eso uso el content

por **explorer** » 2009-12-11 13:28 @602

Si ejecutases este cliente desde la línea de comandos, tardarías la décima parte de tiempo en tener el tema terminado.

Cambia el text/html por text/plain, porque en tu programa no estás enviando ninguna salida en HTML.

Sí... es más cómodo abrir una terminal y hacer pruebas en ella, ejecutando este programa, hasta saber cómo conectarte con el servidor. Luego, pasarlo a CGI, que es lo que estás haciendo ahora, es casi trivial. Pero empezar siendo CGI... pues como que algunas cosas se pueden quedar escondidas.

Aún no has dicho nada de qué tipo de respuestas devuelve el servidor. Te he preguntado si lo que devuelve el servidor acaba en carácter de fin de línea o no, porque según lo que respondas, podrás usar <$sock> o read($sock, ...).

por **arnedis** » 2009-12-13 04:50 @243

Hola. Después de tanto tiempo... ¡ja,ja! Al final pude resolver mi problema... hice cambiar unos parámetros desde el server de Windows y ahora me funciona de pelos... te hago una consulta... ¿tenés por ahí alguna página en donde pueda averiguar cómo restar horas? Ejemplo:

Hora1=localtime(time);
Hora2="La consulta de la hora con el server de Windows"

Resultado= "Tiene que ser en segundos"

Estuve viendo algo... pero si por alguna casualidad tenés a mano algún link te lo agradecería.

Saludos, Arnedis.

Actualizacion: Hice mi propio script de las horas... en un rato las subo para los usuarios que tengan problemas de ese tipo.

por **explorer** » 2009-12-13 07:31 @355

Con Time::Local puedes convertir una hora en segundos, por lo que luego es fácil hacer la diferencia.

Foro - Perl en Español

Blocking

Re: Blocking

Publicidad

Re: Blocking

Re: Blocking

Re: Blocking

Re: Blocking

Re: Blocking

Re: Blocking

Re: Blocking

¿Quién está conectado?