[SP-pm] Perl Socket
João Moura
joaomdmoura at gmail.com
Thu Oct 28 07:59:50 PDT 2010
Saquei Eduardo, obrigado cara, vou continuar estudando Perl e vou tentar
fazer isso então se é bem mais simples, acabei fazendo do unico jeito que
sabia rs, obrigado mesmo.
Abraço!
2010/10/28 Eduardo Verissimo <everissimo at gmail.com>
> Eu acho que o escopo de seu projeto está errado. Está perdendo um tempo
> enorme tentando reinventar a roda. Eu o aconselho a usar ModPerl, ou, melhor
> ainda, Catalyst, e fazer o que você precisa em algumas linhas sem perda de
> tempo.
>
> Se você só quer fazer uma atualização de informações em uma página, está
> dando tiro de canhão para matar mosca.
>
> Abraço!
>
>
> 2010/10/28 João Moura <joaomdmoura at gmail.com>
>
>> Estou desenvolvendo ainda, tirei as partes de socket_write e socket_read
>> pq estava tendo alguns problemas bizzaros, e acabei fazendo essa gambits com
>> json por enquanto, oque eu preciso na prática é uma interação entre os
>> clientes que estão acessando o servidor, de forma que se um uma div for
>> movimentada em um o outro possa visualizar isso em tempo real.
>>
>> Os problemas que estava tendo é que estava dando acess denied para o
>> socket_bind, e o socket entrava em um looping bizzarro de erros, por isso
>> apelei para a gambits por enquanto rs.
>>
>> Abcs
>>
>> 2010/10/28 Stanislaw Pusep <creaktive at gmail.com>
>>
>> Não entendi... Vc cria o socket, mas não usa send() nem recv() nele...
>>> Qual o propósito?
>>> Pelo que reparei, ele conecta na porta 80... Para isso, Perl tem um belo
>>> de um wrapper :)
>>> http://search.cpan.org/~gaas/libwww-perl-5.837/lib/LWP/Simple.pm<http://search.cpan.org/%7Egaas/libwww-perl-5.837/lib/LWP/Simple.pm>
>>>
>>> ABS()
>>>
>>>
>>>
>>>
>>> 2010/10/28 João Moura <joaomdmoura at 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 at 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 at 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 at 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 at 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 at pm.org
>>>>>>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> --
>>>>>>> "o animal satisfeito dorme". - Guimarães Rosa
>>>>>>>
>>>>>>> _______________________________________________
>>>>>>> SaoPaulo-pm mailing list
>>>>>>> SaoPaulo-pm at pm.org
>>>>>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>>>>
>>>>>>
>>>>>>
>>>>>> _______________________________________________
>>>>>> SaoPaulo-pm mailing list
>>>>>> SaoPaulo-pm at pm.org
>>>>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> "o animal satisfeito dorme". - Guimarães Rosa
>>>>>
>>>>> _______________________________________________
>>>>> SaoPaulo-pm mailing list
>>>>> SaoPaulo-pm at pm.org
>>>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>>
>>>>
>>>>
>>>> _______________________________________________
>>>> SaoPaulo-pm mailing list
>>>> SaoPaulo-pm at pm.org
>>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>
>>>
>>>
>>> _______________________________________________
>>> SaoPaulo-pm mailing list
>>> SaoPaulo-pm at pm.org
>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>
>>
>>
>> _______________________________________________
>> SaoPaulo-pm mailing list
>> SaoPaulo-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>
>
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm at pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20101028/3c6fa867/attachment-0001.html>
More information about the SaoPaulo-pm
mailing list