PDA

Visualizza la versione completa : [perl] aprire una comunicazione seriale


piffi
14-03-2012, 12:36
Salve a tutti,
ho la necessità di crerare uno scrip in perl che quando viene invocato apre la comunicazione con una com e invia ad un modem dei comandi AT ad esempio per far partire una chimata.
Essendo completamente a digiuno di Perl ho trovato su internet il seguente scrip bello e pronto:


#!/usr/bin/perl
open(MODEM,"+</dev/ttyS0") or die "can't open tty device file: $!";
$number="01234567";
print MODEM "ATD'$number\'\015";
close(MODEM);

Lo scrip funziona però solo se prima di eseguirlo si è aperto un terminale come ad esempio Gtkterm o Minicom che si è occupato di aperire la comunicazione con il modem.

Come posso fare per aprire la comunicazione dentro lo scrip senza eseguire programmi esterni??

Sistema Operativo: Linux Debian Squeeze
Modem: cellulare SIEMENS C35i

Grazie a tutti

Loading