[SP-pm] Perl Socket

[Solli Honorio]

João,

Não entendi porquê você conecta na porta 80 do teu host. No teu código você
abre uma conexão e não faz nada com ela ? Abre um banco de dados e grava o
conteúdo no arquivo 'teste.js', e depois ?

Eu realmente ainda não entendi o 'socket' em tudo isto ? Você está lendo ou
enviando algo pelo socket ?

Solli M. Honório

2010/10/28 João Moura <joaomdmoura em gmail.com>

> Claro Solli, posso disponibiliza-lo sim, provavelmente deve ter alguma
> maneira mais fácil de obter o mesmo resultado, segue abaixo:
>
> <?php
> error_reporting (E_ALL);
> set_time_limit (0);
> ob_implicit_flush ();
> $service_port = getservbyname ('www', 'tcp');
> $address = gethostbyname ('www.joaomdmoura.com');
> $socket = socket_create (AF_INET, SOCK_STREAM, 0);
> if ($socket < 0) {
>     echo "socket_create() failed: reason: " . socket_strerror ($socket) .
> "\n";
> } else {
>     echo "OK.\n";
> }
> $result = socket_connect ($socket, $address, $service_port);
> if ($result < 0) {
>     echo "socket_connect() failed.\nReason: ($result) " .
> socket_strerror($result) . "\n";
> } else {
>     echo "OK.\n";
> }
> do {
> $conecta = mysql_connect('XXXXXXXXXXXXXXX', 'XXXX', 'XXXXXXXXX');  //
> Substitui as informações do meu banco rsrs
> mysql_select_db('XXXXXXXXX', $conecta);// Substitui as informações do meu
> banco rsrs
> $sql = "SELECT * FROM teste";
> $query = mysql_query($sql);
> $fp = fopen("teste.js", "w");
> $comeco = '({
>         "players": [';
> $escreve2 = fwrite($fp, $comeco);
> while ($linha = mysql_fetch_array($query)) {
>                 $id = $linha['id'];
>                 $qual = $linha['qual'];
>                 $valor = $linha['valor'];
>                 $pronto = $linha['pronto'];
>                 $pieces = explode(",", $valor);
>                 $geral_info = array(    "qual" => $qual,
>                                         "x" => $pieces[0],
>                                         "y" => $pieces[1],
>                                         "pronto" => $pronto
>                                     );
>                 $json = json_encode($geral_info);
>                 $escreve = fwrite($fp, $json);
>                 $vigula = fwrite($fp, ",");
>                 echo $json;
> }
> $final = ' ]
> })';
> $escreve3 = fwrite($fp, $final);
> fclose($fp);
> } while (true);
> socket_close ($socket);
> ?>
>
> 2010/10/28 Solli Honorio <shonorio em gmail.com>
>
> João,
>>
>> Você pode disponibilizar o teu código em PHP para eu enteder o que você
>> queria e explicar como fazer em Perl !
>>
>> Solli M. Honorio
>>
>> 2010/10/28 João Moura <joaomdmoura em gmail.com>
>>
>> Bom dia, vim agradecer, obrigado pela colaboração à todos, não consegui
>>> fazer em Perl, mas fiz um socket em php que faz a consulta e salva um js com
>>> json,e depois resgato isso via ajax.
>>>
>>> Mesmo assim obrigado.
>>>
>>> Abcs, João Moura
>>>
>>> 2010/10/26 Solli Honorio <shonorio em gmail.com>
>>>
>>> Procure por JSON neste FAQ
>>>>
>>>> http://search.cpan.org/dist/DBIx-Class/lib/DBIx/Class/Manual/FAQ.pod
>>>>
>>>> Solli
>>>>
>>>>  2010/10/26 João Moura <joaomdmoura em gmail.com>
>>>>
>>>>> Se flar besteira perdoem-me rs é minah primeira dúvida.
>>>>>
>>>>>
>>>>> Estou precisando desenvolver um socket que faça conexão com um bd mysql
>>>>> e escreva um arquivos js, com as informações em json, de preferencia que
>>>>> fique fazendo isso em looping no servidor.
>>>>>
>>>>> Vocês sabem me dar um norte de como poderia desenvolver isso ou se acho
>>>>> algo meio pronto que me permita editar?
>>>>>
>>>>> Busquei fazer em PHP, mas queria saber se não vale a pena desenvolver
>>>>> em Perl.
>>>>>
>>>>> Abs, João Moura
>>>>>
>>>>> _______________________________________________
>>>>> SaoPaulo-pm mailing list
>>>>> SaoPaulo-pm em pm.org
>>>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>>
>>>>
>>>>
>>>>
>>>> --
>>>> "o animal satisfeito dorme". - Guimarães Rosa
>>>>
>>>> _______________________________________________
>>>> SaoPaulo-pm mailing list
>>>> SaoPaulo-pm em pm.org
>>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>
>>>
>>>
>>> _______________________________________________
>>> SaoPaulo-pm mailing list
>>> SaoPaulo-pm em pm.org
>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>
>>
>>
>>
>> --
>> "o animal satisfeito dorme". - Guimarães Rosa
>>
>> _______________________________________________
>> SaoPaulo-pm mailing list
>> SaoPaulo-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>
>
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>



-- 
"o animal satisfeito dorme". - Guimarães Rosa
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20101028/f32f3c47/attachment.html>