Простое чтение данных.
use GPS::NMEA;
use Data::Dumper;
my $gps = GPS::NMEA->new(Port => '/dev/cuaa0',
Baud => 4800);
while(1) {
$gps->parse;
$gps->nmea_data_dump;
require Data::Dumper;
print Data::Dumper->new([$gps->{NMEADATA}],[])->Indent(1)->Useqq(1)->Dump;
}
Печатаем координаты.
use GPS::NMEA;
use Data::Dumper;
my $gps = GPS::NMEA->new(Port => '/dev/cuaa0',
Baud => 4800);
while(1) {
$gps->parse;
$gps->nmea_data_dump;
require Data::Dumper;
print Data::Dumper->new([$gps->{NMEADATA}],[])->Indent(1)->Useqq(1)->Dump;
}
Дамп всех NMEA данных с порта.
use GPS::NMEA;
use Data::Dumper;
my $gps = GPS::NMEA->new(Port => '/dev/cuaa0',
Baud => 4800);
while(1) {
$gps->parse;
$gps->nmea_data_dump;
require Data::Dumper;
print Data::Dumper->new([$gps->{NMEADATA}],[])->Indent(1)->Useqq(1)->Dump;
}