From: p c. <pdc...@bl...> - 2005-01-09 16:37:41
|
ive set up a simple table=20 Date | Number 8Jan | 1 9Jan | 2 #! /usr/bin/perl -w use strict; use Palm::PDB; use Palm::Raw; use Data::Dumper; my $pdb =3D new Palm::PDB(); Palm::PDB::RegisterPDBHandlers("Palm::Raw", ""); my $pdb->Load("OR2.pdb"); print "name is "; print $pdb->{"name"}; print "\n"; my @array =3D$pdb->{"records"}; print Dumper \@array; gives this=20 $VAR1 =3D [ [ { 'data' =3D> 1', 'id' =3D> 13180929, 'category' =3D> 0, 'attributes' =3D> { 'Dirty' =3D> 1, 'dirty' =3D> 1 }, 'offset' =3D> 138 }, { 'data' =3D> =D5 2', 'id' =3D> 13180930, 'category' =3D> 0, 'attributes' =3D> { 'Dirty' =3D> 1, 'dirty' =3D> 1 }, 'offset' =3D> 148 } ] ]; router outreach # =20 Nay clues as to how I get access to the data ? |