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);
[download]