#!/usr/bin/perl -w #use strict; use Palm::PDB; use Palm::Address; my $p = new Palm::PDB; $p->Load( $ARGV[0] ) || die "Error loading $ARGV[0]\n"; my @categories = @{$p->{appinfo}{categories}}; for my $catid (@categories ) { my $cat = $categories[$catid]; if( $cat->{name} ) { print "$cat->{name}\n"; } for my $rec ( sort { $a->{fields}->{name} cmp $b->{fields}->{name} | +| $a->{fields}->{firstName} cmp $b->{fields}->{firstName} } @{ $p->{r +ecords} } ) { print "$rec->{fields}->{firstName} $rec->{fields}->{name}\n"; } }
In reply to Re: examples using Palm::Addressbook?
by fractureMech
in thread examples using Palm::Addressbook?
by fractureMech
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |