Foro - Perl en Español

por **BigBear** » 2013-04-02 10:00 @458

Tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use IO::Socket;
 
my $socket = new IO::Socket::INET( 
LocalHost => 'localhost', 
LocalPort => '8080',
Proto => 'tcp',
Listen => SOMAXCONN,
Reuse => 1);
 
my ($cliente,$buff,$kid); 
 
while ($cliente = $socket->accept()) 
{
next if $kid = fork; 
 
while(<$cliente>) {
$data.=$_;
}
 
print $data;
 
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Me gustaría recibir la información en una sola variable porque no quiero usar el while(). Intenté usando $data.= de esta forma para poder mostrarlo después del while(), pero no funciona.

¿ Alguien me podría decir si hay alguna forma más fácil de hacerlo o sino decirme qué estoy haciendo mal ?

$ telnet google.es 80

Trying 173.194.45.31...

Connected to google.es.

Escape character is '^]'.

GET / HTTP/1.1

HTTP/1.1 302 Found

Location: http://www.google.es/

Cache-Control: private

Content-Type: text/html; charset=UTF-8

Set-Cookie: PREF=ID=cfd42d6abe1b429c:FF=0:TM=1364931200:LM=1364931200:S=5QD7BQmDNI5igzN_; expires=Thu, 02-Apr-2015 19:33:20 GMT; path=/; domain=.google.com

Set-Cookie: NID=67=kKrxPMYGcymisG5oWl7PEqEv2vP_MdscaXxCk1KqKXx5M7CCfsNiPXxVGCXshKbmpIcUehbkbGXtoaTHHNXqci_Fyyiad8d_RIsK1R_mLTdSBdWpfj5B0NkM8ymz6EID; expires=Wed, 02-Oct-2013 19:33:20 GMT; path=/; domain=.google.com; HttpOnly

P3P: CP="This is not a P3P policy! See http://www.google.com/support/accounts/ ... wer=151657 for more info."

Date: Tue, 02 Apr 2013 19:33:20 GMT

Server: gws

Content-Length: 218

X-XSS-Protection: 1; mode=block

X-Frame-Options: SAMEORIGIN

<HTML><HEAD><meta http-equiv="content-type" content="text/html;charset=utf-8">

<TITLE>302 Moved</TITLE></HEAD><BODY>

<H1>302 Moved</H1>

The document has moved

<A HREF="http://www.google.es/">here</A>.

</BODY></HTML>Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

es decir, un conjunto de líneas. Por eso con while() funciona. Con read(), debes indicar el número de bytes que vas a leer. Y ese dato lo puedes sacar del Content-Length, por ejemplo.

Si vas a hablar con servidores HTTP, hay docenas de formas más sencillas...

por **The XC3LL** » 2013-04-09 18:33 @815

No entiendo muy bien tu pregunta... ¿Quieres guardar todo lo que recibe dentro de una variable para después trabajar con ello? De ser así, lo que podrías hacer es en vez de usar .= es crear previamente un array y después "push()ear" las líneas que vas recibiendo del socket en su interior. Es decir:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while (<SOCKET>) {
    push(@array,$_);
};
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Después ya puedes trabajar con ello. Si no quieres después trabajar con el array y necesitas, por lo que sea, pasarlo a una variable tiras de join().

Foro - Perl en Español

Duda con sockets

Duda con sockets

Publicidad

Re: Duda con sockets

Re: Duda con sockets

Re: Duda con sockets

Re: Duda con sockets

Re: Duda con sockets

Re: Duda con sockets

¿Quién está conectado?