Tem modulo no cpan pra isso:<br><br><a href="http://search.cpan.org/search?query=serial+port&mode=all">http://search.cpan.org/search?query=serial+port&mode=all</a><br><a href="http://search.cpan.org/search?query=serial+port+lcd&mode=all">http://search.cpan.org/search?query=serial+port+lcd&mode=all</a><br>
<br><div class="gmail_quote">2009/6/17 João Gabriel Casteluber Laass <span dir="ltr"><<a href="mailto:gabriel@joaogabriel.org">gabriel@joaogabriel.org</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="im">> Claro, open(porta, ">/dev/ttyS0") abre apenas para escrita.<br>
</div>Eu sei.<br>
<br>
Eu queria dizer que usando os métodos de leitura (não os de escrita)<br>
não consegui ler o que chega na porta serial.<br>
<br>
Vou contar o que estou tentando fazer:<br>
Estou fazendo um trabalho prático na faculdade, que consiste em criar<br>
uma fechadura eletronica controlada por senhas e que possa ser aberta<br>
via web. O projeto está dividido em 3 partes:<br>
- 1 site que mostra os logs de acesso da porta e tem o poder de abrir a porta;<br>
- 1 micro-controlador (em um circuito impresso) que tem um teclado (no<br>
momento um teclado de telefone) e um LCD interligados. Nesse circuito,<br>
o cidadão faz login e senha (numéricos). O micro-controlador envia o<br>
usuário e senha via porta serial e para abrir a fechadura elétrica<br>
precisa receber uma string "open_port" (é, tá feio, mas estamos no<br>
começo). Além dessa string, vamos implementar outras, tais como banco<br>
de dados fora do ar, envio de usuários e senhas para ficar na memória<br>
do micro-processador... etc.<br>
<br>
- 1 aplicação em back-ground que lê a porta serial e faz as validações<br>
e cria os logs de acesso (é nessa parte que eu estou).<br>
Eu consigo enviar e receber dados usando uma aplicação em C, porém C<br>
não é a minha praia, e eu queria sair do paradigma C e Java da<br>
faculdade e tentar implementar algo em Perl.<br>
<br>
Uma curiosidade: fizemos tudo do zero. Compramos apenas o processador,<br>
os resistores, protoborad, etc (imaginem uma mesa cheia de fios, um<br>
teclado de telefone e um LCD srssrr).<br>
<br>
Bom é isso.<br>
<div class="im"><br>
João Gabriel C. Laass<br>
27 8802.0195<br>
<a href="http://www.joaogabriel.org" target="_blank">www.joaogabriel.org</a><br>
<br>
<br>
<br>
2009/6/17 Eden Cardim <<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>>:<br>
</div><div><div></div><div class="h5">> 2009/6/17 João Gabriel Casteluber Laass <<a href="mailto:gabriel@joaogabriel.org">gabriel@joaogabriel.org</a>><br>
>> Oi Eden.<br>
>><br>
>> Consegui enviar uma mensagem para a porta paralela da seguinte forma:<br>
>> open(porta,">/dev/ttyS0") or die $!;<br>
>> print porta "mensagem";<br>
>> close(porta);<br>
>><br>
>> Porém não consigo receber mensagem alguma...<br>
><br>
> Claro, open(porta, ">/dev/ttyS0") abre apenas para escrita.<br>
><br>
> perldoc -f open<br>
><br>
> --<br>
> Eden Cardim Need help with your Catalyst or DBIx::Class project?<br>
> Code Monkey <a href="http://www.shadowcat.co.uk/catalyst/" target="_blank">http://www.shadowcat.co.uk/catalyst/</a><br>
> Shadowcat Systems Ltd. Want a managed development or deployment platform?<br>
> <a href="http://edenc.vox.com/" target="_blank">http://edenc.vox.com/</a> <a href="http://www.shadowcat.co.uk/servers/" target="_blank">http://www.shadowcat.co.uk/servers/</a><br>
> _______________________________________________<br>
> Cascavel-pm mailing list<br>
> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
><br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>--Lindolfo "Lorn" Rodrigues<br><a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br</a><br><a href="http://lornlab.org">http://lornlab.org</a><br>
<a href="http://sao-paulo.pm.org">http://sao-paulo.pm.org</a><br>use Catalyst;<br>