← Back to team overview

sslug-teknik team mailing list archive

perl/serielporten

 

Hejsa!

Jeg forsøger at skrive en stump kode, der læser data fra
modemet..

Først prøvede jeg bare at åbne porten med
open (SERIALPORT, "/dev/ttyS1");
men .. her hænger den tit. (Mindes at have prøvet
i C engang, hvor den gjorde det samme)

Jeg fik så et modul, der hedder Async  af en gut på IRC.
Det prøvede jeg så ..

$device='/dev/ttyS1';
use Async;
$PORT = new Async (Device => $device);

Her hænger den også! Hvis jeg starter minicom og så kører scriptet
går den videre.. Async modulet sætter ellers baudrate osv..

Det underlige er, at det faktisk virkede i går aftes ;)
Efter reboot virker det også - men så snart jeg har været
på Internet vil den ikke mere.. heller ikke, hvis jeg tænder/slukker
omni.net'en..

Nogen, der har prøvet sådan noget?

-- 
michael legart, legart@xxxxxxxxxxxxxx. muuuh.