I'm trying to create a script to handle expenses from the standard expense program. I'm using the unpack function, which yields meaningful results for the amount, category, payment, vendor, city, attendees, and note fields, but not the unique record identifier, date, expensetype, and currency fields. Any ideas?
Script and output follow...
#!/bin/perl
use Palm::PDB;
use Palm::Raw;
my $pdb = new Palm::PDB;
my $dbfile="/home/jtferrel/visor/backup/ExpenseDB.pdb";
$pdb->Load($dbfile) || die print "oops! no $dbfile found\n";
$pdb->{sort};
open( OUT, ">visorsynch.csv");
print( OUT "Date,Category,Type,Amount,Country,Payment Type,Vendor,City,Attendee,Note\n");
print( OUT "uid,date,expensetype,currency,amount,category,payment,vendor,city,attendees,note\n" );
my $i = 0;
foreach $record (@{$pdb->{records}}){
my $record = {};
$record = $pdb->{records}[$i];
# ($uid,$date,$expensetype,$currency,$amount,$category,$payment,$vendor,$city,$attendees,$note)=unpack("A3 a a a a a a a a a a",$record->{data});
# print( OUT "$uid,$date,$expensetype,$currency,$amount,$category,$payment,$vendor,$city,$attendees,$note\n" );
($recordstring)=unpack("a1000000",$record->{data});
$recordstring =~ tr/\cW/,/;
$recordstring =~ tr/\c@/,/;
print( OUT "$recordstring\n" );
($amount,$vendor,$city,$attendees,$note) = split(/,/,$recordstring);
print( OUT "$amount\t$vendor\t$city\t$attendees\t$note\t".ord($vendor)."\n" );
$i++;
}
close OUT;
*************************Results:***************************
Date,Category,Type,Amount,Country,Payment Type,Vendor,City,Attendee,Note
uid,date,expensetype,currency,amount,category,payment,vendor,city,attendees,note
Äx
,u28.00,Lunch,,,,
Äx
u28.00 Lunch 117
Äx
,u10.00,Dinner ,,,,
Äx
u10.00 Dinner 117
Äy
,u5.50,Lunch - Jason,,,,
Äy
u5.50 Lunch - Jason 117
Äz
,u2.50,Dinner - jason,,,,
Äz
u2.50 Dinner - jason 117
Äz
,u.30,Genoiogy copies,,,,
Äz
u.30 Genoiogy copies 117
Äz
,u4.00,Snack / drinks - Jason,,,,
Äz
u4.00 Snack / drinks - Jason 117
Äy
,¾7.58,Southeastern wholesale,1498,,,
Äy
¾7.58 Southeastern wholesale 1498 190
Ä
,¾500.00,NBC,1005,,,
Ä
¾500.00 NBC 1005 190
ă
,Î30.46,Gas,126403.6,Van,19.412-1.569,
ă
Î30.46 Gas 126403.6 Van 206
ă
,¾18.08,Gas,121149.1,Honda,11.104-1.629,
ă
¾18.08 Gas 121149.1 Honda 190
ă
,¾18.00,NBC,1499,,,
ă
¾18.00 NBC 1499 190
ă
,¾35.68,Village of Woodridge,1494,,,
ă
¾35.68 Village of Woodridge 1494 190
Ä"
,¾6.94,Cub,,,,
Ä"
¾6.94 Cub 190
ÄŠ
,¾10.02,Dupage Co. Public Works,,,,
ÄŠ
¾10.02 Dupage Co. Public Works 190
Ę
,¾50.83,Com Ed,,,,
Ę
¾50.83 Com Ed 190