Foro - Perl en Español

Buenas, perleros.

Necesito comunicarme con un módem GSM ubicado en el puerto USB (/dev/ttyUSB0), de manera que le haga llegar comandos AT y pueda obtener la respuesta, para en función de ésta hacer otras tantas cosas (como por ejemplo comprobar la calidad de señal, modelo de módem, etc).

He leído que mediante minicom se puede, pero lo que busco es hacerlo sin instalar nada, únicamente mediante herramientas propias de un sistema UNIX, puesto que dichos comandos los ejecutaré desde un CGI en Perl.

He probado a poner un cat en modo demonio que escribe a fichero:

para luego mandar comando AT al módem con

luego leo el fichero

y me muestra "+CSQ: 15,99", pero con otros comandos no devuelve lo que debería.

¿Alguien sabe alguna manera de hacer esto con comandos de una manera más eficiente? (para luego ejecutarlos desde Perl) ¿O incluso directamente con algún módulo Perl?

GRACIAS desde ya

¡¡Fenomenal!

Gracias una vez más...

El caso es que pensaba en recuperar información tal como el modelo del módem, el IMEI y la calidad de señal (que si funciona aunque no lo consigo de una manera ortodoxa, digamos).

Mañana miro los módulos CPAN a ver qué tal...

Ya digo algo con las novedades.

Edito:
el problema es que en la maquina que ejecutara el script no puedo instalar modulos y ninguno de esos modulos vienen por defecto en la instalacion de perl de la maquina.
lastima, porque el modulo gsm tenia buena pinta.. asi, tendre que buscar la manera de hacerlo sin modulos, unicamente con comandos de terminal (de momento solo consigo la calidad de señal, con "echo 'AT+CSQ' > /dev/ttyUSB0", y si necesita PIN, con "echo 'AT+CPIN?' > /dev/ttyUSB0").
Haciendo un lsusb en la terminal me dice: Sierra Wireless Inc.Quiza, como dice explorer, tenga que buscar comandos AT soportados por este modelo de modem.

Si a alguien se le ocurre algo.. bienvenido sea.

Gracias

Hola de nuevo...

Por fin me decidí a probar el módulo Device::Gsm de Perl para enviar comandos AT al módem GSM... el resultado no es del todo el esperado:

si coloco esto: my $imei = $gsm->imei(); al imprimir la variable $imei únicamente me saca 'OK', que es la última línea que suele sacar el mismo comando pero usando minicom.

Mi pregunta es si alguien sabe a qué se debe esto, qué puede estar fallando, pues el código my $calidad = $gsm->signal_quality(); si que me devuelve la calidad de la señal en dB, pero otros comandos (básicamente todos) sólo devuelven la linea de 'OK' ¡omitiendo precisamente la información que necesito que justo viene antes!

Quizá el problemático sea mi módem...

Desde ya un millón de gracias.

Aquí de nuevo..

El test_command() lo probé al principio para ver qué ocurría... pero me dice que los comandos que pruebo son soportados ¬¬.

Lo de imprimir la variable con lo devuelto por el módem también... y según parece el módem no devuelve más que 'OK'.

He leído sobre usar sysopen() y sysread() para abrir el puerto como un fichero, pero mirando la ayuda de perldoc.perl.org no me queda nada claro su uso...

En fin, seguiré buscando.

Gracias

Hola,
finalmente se consiguió hacer un log con la respuesta del módem a los comandos AT mediante la herramienta 'chat'. Luego ya con Perl trato el fichero y extraigo la información.

¡Gracias explorer!

ok!

Así lo haré; este módem es bastante corriente; es extraño que a nadie le haya fallado antes...

Gracias una vez más.