Простое чтение данных.
#!/usr/bin/perl use GPS::NMEA; use Data::Dumper; my $gps = GPS::NMEA->new(Port => '/dev/cuaa0', # or COM5: or /dev/ttyS0 Baud => 4800); while(1) { $gps->parse; # Dump internal NMEA data: $gps->nmea_data_dump; # Alternative to look at the internal NMEA data: require Data::Dumper; print Data::Dumper->new([$gps->{NMEADATA}],[])->Indent(1)->Useqq(1)->Dump; }
Печатаем координаты.
#!/usr/bin/perl use GPS::NMEA; use Data::Dumper; my $gps = GPS::NMEA->new(Port => '/dev/cuaa0', # or COM5: or /dev/ttyS0 Baud => 4800); while(1) { $gps->parse; # Dump internal NMEA data: $gps->nmea_data_dump; # Alternative to look at the internal NMEA data: require Data::Dumper; print Data::Dumper->new([$gps->{NMEADATA}],[])->Indent(1)->Useqq(1)->Dump; }
Дамп всех NMEA данных с порта.
#!/usr/bin/perl use GPS::NMEA; use Data::Dumper; my $gps = GPS::NMEA->new(Port => '/dev/cuaa0', # or COM5: or /dev/ttyS0 Baud => 4800); while(1) { $gps->parse; # Dump internal NMEA data: $gps->nmea_data_dump; # Alternative to look at the internal NMEA data: require Data::Dumper; print Data::Dumper->new([$gps->{NMEADATA}],[])->Indent(1)->Useqq(1)->Dump; }