Hej.
Jag vill fråga ett modem om lite parametrar med hjälp av PERL, men jag kan inte hitta rätt information om hur jag skall gör.
Låt säga att jag vill fråga /dev/ttyUSB0 följande:
AT+COPS
Hur får jag då tag på svaret?
Pseudokod:
Kod:
sub getnetworkinfo
{
Öppna /dev/ttyUSB0
if(/dev/ttyUSB0 öppnad)
{
Sänd kommando "AT+COPS" till /dev/ttyUSB0
Fånga svaret
Stäng anslutning
Rensa datan
returnera info
}
returnera false
}
PS! Jag är på en väldigt låg PERL-kunskapsnivå men har hyfsad kunskap i programmering av scriptspråk i allmänhet.