Handy mit Perl ansprechen
Ich habe gerade eine Möglichkeit entdeckt, mein Handy mit meiner Lieblings-Programmiersprache zu bedienenIch habe eben entdeckt, dass ich bei meinem neuen Handy per USB-Verbindung unter Linux nicht nur auf die Memory-Card zugreifen, sondern das Handy auch per AT-Befehlsatz bedienen kann. Der Befehlssatz scheint recht umfangreich zu sein. Auf der Homepage von Sony Ericsson kann man die Dokumentation herunterladen.
Zumindest ein erfolgreiches ATI0 konnte ich eben auch schon per Perl-Script absetzen.
Man benötigt das Modul Device::Modem. Folgendes hat damit funktioniert:
#/usr/bin/perl -w
use strict;
use Device::Modem;
my $modem = new Device::Modem( port => '/dev/ttyACM0' );
if( $modem->connect( baudrate => 9600 ) ) {
print "connected!\n";
} else {
print "sorry, no connection with serial port!\n";
}
$modem->atsend( 'ATI0' . Device::Modem::CR );
print $modem->answer();
Das Handy antwortet
connected!
Sony Ericsson K750
OK
Das ist sicher ausbaufähig
Eine Gute Quelle ist auch http://stefans.datenbruch.de/k750i/ (zum Handy unter Linux)und http://stefans.datenbruch.de/k750i/atcmds.shtml (zu AT-Befehlen)
