[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.

[Digitum]

Jag har hittat lite info men jag får det inte riktigt att fungera.

Så här kan en kommunikation se ut:

AT

OK
AT+COPS?

+COPS: 0,2,"24005",2

OK

Det i rött är det jag skriver.

Så här ser min kod ut:

#!/usr/local/bin/perl
use Device::SerialPort;

my $port = Device::SerialPort->new("/dev/ttyUSB0")||
      die("Kan inte öppna port");

$port->write("AT+COPS?\n");
my $line;
my $i = 0;
print "Data från modem:";
while($i++ < 10)
{
	print "\n" . $i . ":";
	$line = $port->read();
	print $line;
}
print "\nSlut\n";

[Digitum]

Jag har inte löst det men jag bytte till IO::Modem i stället och det fungerade utmärkt.