[Digitum]

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:

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.