SV: [PERL] Serial data -> SQL

[Poul Møller Hansen <sslug@sslug>]

Nu bliver spørgsmålet nok lidt udenfor perl, men jeg vover pelsen :o)

Hvis jeg kan bruge filhandle, så burde jeg vel også kunne skrive
cat /dev/ttyS1 > fil
på prompten ?

Det virker hvis dataene er ,n,8,1

Så det jeg mangler er nok en ækvivalent til DOS's "mode com2 1200,7,e,1"
Jeg har kigget i "man setserial" men det kan tilsyneladende kun bruges til
at sætte IO og IRQ ?

Hvordan sætter jeg porthastigheden ?

Mvh, Poul


> Jeg har en kilde med serial data (1200,7,e,1) som jeg gerne vil
> "samle" op og putte i en MySQL database.

Hvis din serielle kilde kan snuppes via /dev/tty??, så kan du bare bruge
den som filehandle:

open(TTY,"</dev/ttyS7") || die;
while (<TTY>) {
  do stuff
}