Hmmm, I love perl...
where can I get perl for the palm pilot?
-----Original Message-----
From: David A. Desrosiers <[EMAIL PROTECTED]>
To: Palm Developer's Forum <[EMAIL PROTECTED]>
Date: Saturday, August 07, 1999 7:03 PM
Subject: Why does this perl code fail?
>
> Why does this code fail on AddressDB, but not on any of the other
>DBs? If I put DatebookDB in there, it works fine. What gives? Any ideas?
>I've tried this on 11 linux PCs ranging from perl-5.005_03 to perl4,
>libc5, libc6, using a cold-reset PalmIII, PalmPro, and both with "real"
>data in them. Same results. I tried several versions of pilot-link, and
>several versions of Data::Dumper. No changes.
>
> Any help is appreciated.
>
>________________
>----------------
>#!/usr/bin/perl -w
>
>use PDA::Pilot;
>use Data::Dumper;
>
>$socket = PDA::Pilot::openPort("/dev/ttyS0");
>print "Now press the HotSync button\n";
>$dlp = PDA::Pilot::accept($socket);
>$db = $dlp->open("DatebookDB");
>$i=0;
>while(defined($r = $db->getRecord($i++))) {
> print Dumper($r);
>}
>_______________
>---------------
>
>On a cleanly cold reset Palm (i.e. default Palm Address records), this is
>the end of the output:
>
>_______________
>---------------
>Please refer to the Worldwide Customer Support card for a complete
>technical support contact list.',
> 'showPhone' => '0',
> 'id' => 12746753,
> 'category' => '0'
> }, 'PDA::Pilot::AddressRecord' );
>DLP 4: ReadRecordByIndex
> Wrote: Handle: 1, Index: 2
>Result: Error: Not found (-5)
>Attempt to free unreferenced scalar.
>Attempt to free unreferenced scalar.
>Attempt to free unreferenced scalar.
>Attempt to free unreferenced scalar.
>Attempt to free unreferenced scalar.
>Attempt to free unreferenced scalar.
>Attempt to free unreferenced scalar.
>Attempt to free unreferenced scalar.
>DLP 4: CloseDB
> Wrote: Handle: 1
>Result: No error, 0 bytes
>DLP 4: EndOfSync
>Result: No error, 0 bytes
>-----------------
>
>
>
