You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
392 B
Perl
19 lines
392 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
# use warnings;
|
|
# use diagnostics;
|
|
use PDA::Pilot;
|
|
use Data::Dumper;
|
|
|
|
print "Now press the HotSync button (defaults to /dev/pilot)\n";
|
|
my $socket = PDA::Pilot::openPort("/dev/ttyqe") or die "$!";
|
|
my $dlp = PDA::Pilot::accept($socket);
|
|
my $db = $dlp->open("DatebookDB");
|
|
my $r;
|
|
my $i = 0;
|
|
|
|
while(defined($r = $db->getRecord($i++))) {
|
|
print Dumper($r);
|
|
}
|