Foro - Perl en Español

por **arnedis** » 2009-12-10 15:26 @685

Hola. Mi nombre es Cristian y soy bastante nuevo en esto... mi problema es que he buscado por la Internet un problema que me surge...
Cuando intento enviar información desde Ubuntu a un servidor en Windows lo hace correctamente, pero éste me tiene que responder algo, pero no lo hace...
He comprobado que se comunica porque el servidor en Windows cuando desde Linux le digo "Cambiarhora" éste me cambia la hora de Linux y la sincroniza con la de Windows pero aparte de eso el servidor me tiene que decir "Changed" y yo a ese "Changed" lo tengo que mostrar en una página web... pero el problema es cuando quiero mostrar ese "Changed" porque el Mozilla (en Linux) se queda esperando al localhost... ya intenté poner el socket como blocking => 0 y en 1 también probé pero nada... ¡¡¡Alguien que me ayude, please!!! Gracias de antemano :twisted:

Bienvenido a los foros de Perl en Español, arnedis.

Parece que se trata de un intercambio de información entre servidor y cliente usando el protocolo HTTP, lanzando un CGI, del que esperas una respuesta. Si no aparece, es quizás porque el servidor no termina de enviar la respuesta o que el CGI no termina de enviar la información al servidor web.

Habría que ver si, efectivamente, el CGI termina correctamente.

La solución: en los ficheros de registro (log) del servidor web.

por **arnedis** » 2009-12-10 17:38 @777

Este es el código de mi script. Lo raro es que cuando cierro el server en Windows, en Linux me muestra la respuesta... lo bueno sería que me muestre tal respuesta sin tener que cerrar dicho server... Gracias por tu dedicación.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use IO::Socket;
use Socket;
print "content-type: text/html \n\n";
 
$Sock2 = new  IO::Socket::INET(
        PeerPort=>12000,
        Proto=>'tcp',
        PeerAddr=>'192.168.2.114',
        Blocking=>0);
print "<body>\n";
print $Sock2 "Consulta";
print <$Sock2>;
print "ss";
print "</body>";
close($Sock2);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-12-10 17:54 @787

No me entero... ¿ese código qué es? ¿el cliente que ataca al servidor? ¿el CGI que está en el servidor y que a su vez ataca a otro?

por **arnedis** » 2009-12-10 18:25 @809

Es el cliente que ataca al servidor que está escuchando en el puerto 1200... yo tengo 2 opciones:
1- Preguntarle la hora
2- Cambiar la hora
En este caso le mando "Consulta" para mostrar la hora de la computadora que tiene Windows en la página que tengo en Linux.

por **explorer** » 2009-12-10 18:28 @811

Pero, no estamos hablando de un protocolo HTTP, ¿verdad?

Lo digo porque veo que ese cliente se conecta a un servidor y le envía un text/html y espera un resultado, pero todo está mezclado... Incluso el Content-type del principio, no va a ningún sitio: solo sale en pantalla.

por **arnedis** » 2009-12-10 18:33 @814

Te pregunto algo... ¿esto tiene algo de malo?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$Sock2=new  IO::Socket::INET(

        PeerPort=>12000,

        Proto=>'tcp',

        PeerAddr=>'192.168.2.114',

        Blocking=>0);

print$Sock2"Consulta";

print<$Sock2>;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-12-10 18:51 @827

No, no hay nada raro, salvo que estás primero enviando la consulta y luego esperando la respuesta.

La clave de un protocolo hecho a medida es que tienen que hablar perfectamente bien cliente y servidor.

El mejor ejemplo que se me ocurre e idéntico a lo que estás haciendo, está en la famosísima página de Linux Journal 1999/04/01. En concreto, tienes un ejemplo de servidor en el listado 5 y de cliente en el listado 6. Míralos y verás que son casi iguales a lo que quieres hacer.

Actualización: Fíjate que el intercambio de mensajes usan "\n" al final. Por eso pueden hacer <$sock>, porque eso implica la presencia de caracteres de fin de línea.

por **arnedis** » 2009-12-10 19:11 @841

Muchas gracias, voy a mirar el enlace que me sugeriste.

por **arnedis** » 2009-12-10 19:46 @865

Hola... sigo con problemas... perdón por ser tan molesto.

Ahora mi problemita es que me tira un erroraso, ¡ja,ja!... te muestro cómo quedó mi código después de modificarlo...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
# server2way.pl - a server that reads from
# and writes to a client
use strict; #me parece q este es el problema.........
use IO::Socket;
use Sys::Hostname;
my $sock = new IO::Socket::INET(
                   PeerAddr=>'192.168.2.114', #aca le saque el localhost y le puse la IP de la pc con windows
                   LocalPort => 12000, #este es el puerto q escucha el programa en windows
                   Proto     => 'tcp',
                   Listen    => SOMAXCONN,
                   Reuse     => 1);
$sock or die "no socket :$!";
STDOUT->autoflush(1);
my($new_sock, $buf);
while ($new_sock = $sock->accept()) {
    # got a client connection, so read
    # line by line until end-of-file
    while (defined($buf = <$new_sock>)) {
   # respond to client request using
   # a cleverly disguised switch
        # statement
   foreach ($buf) {
                 print($new_sock
                       "Consulta", #aca le envio la consulta para que me diga que hora es en la pc con windows
                       "\n"),
                 last;
       # default case:
       print <$new_sock>; #si no te anda asi proba poner esto"DEFAULT\n" con comillas y saca <> quedaria algo asi: $new_sock "DEFAULT\n"
   }
    }
    close $new_sock;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Probé usando lo del content text/html y sin él... ¿tienes idea de qué puede llegar a ser el problemita? Estoy muy agradecido por tu ayuda

Foro - Perl en Español

Blocking

Blocking

Publicidad

Re: Blocking

Re: Blocking

Re: Blocking

Re: Blocking

Re: Blocking

Re: Blocking

Re: Blocking

Re: Blocking

Re: Blocking

¿Quién está conectado?