[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";