This script extracts the contact information out of an Evolution address book database. The output is in VCard format. I found a few different Python versions of this around but nothing in Perl so I wrote my own :) Once I decide what I am going to do with the data I will write some munging code.
#!/usr/bin/perl -w
use strict;
use DB_File;
my $db_file = "./addressbook.db";
my %db=();
dbmopen(%db, $db_file, 0666) or die "Can't open DB_File $db_file : $!\
+n";
for my $key (keys %db){
for my $data (split /\n/, $db{$key}){
print "$data \n";
}
}
dbmclose(%db);