Evolution’s VCF to GMail CSV (updated)

July 4, 2008

Importing contacs from Evolution to GMail is a pain in the ass… The Novell’s Mail Client stores ‘em in a silly VCF record: such file is incomprehensible for gmail, hehe
I wrote this little-n-dirty perl script to convert the fuckin’ list.vcf to list.csv (according to gmail format).
That’s the code (you could download it from here, tho)
If you are a GNOME user you could appreciate this one, which works nicely with the Nautilus file manager. (Thanks to dave)

#!/usr/bin/env perl # # vcf2csv by gall0ws <g4ll0ws@gmail.com> # # Time-stamp: <2008-05-03 04:18:04 CEST gallows> # # Convert Evolution's vcf contact list in gmail readable csv file. # # Tested with `list.vcf' generated by Novell Evolution 2.22 (VCARD 3.0) # use strict; my @csv_fields = ('Name', 'E-mail', 'Phone', 'Notes'); my $fin = $ARGV[0]; my $fout = $ARGV[1]; sub push_field { my ($csv_ref, $vcard_ref, $re) = @_; my ($tmp) = grep(/$re/, @$vcard_ref); my ($key, $value) = split ':', $tmp, 2; chop $value; push @$csv_ref, $value; } BEGIN; if (!defined $fin || !defined $fout) { print "usage: $0 [input.vcf] [output.csv|-]\n"; exit 1; } $fout = '/dev/stdout' if $fout eq '-'; open(VCF, "< $fin") || die "$0: cannot open `$fin': $!"; open(CSV, "> $fout") || die "$0: cannot open `$fout': $!"; # print csv header on CSV handle: foreach (@csv_fields) { print CSV $_ . ','; } print CSV "\n"; do { my @vcard = (); # card in vcf format my @csv = (); # load @vcard from $fin: do { $_ = <VCF>; chomp; push @vcard, $_; } until /END:VCARD/; # put fields in @csv: push_field \@csv, \@vcard, "^FN:.*"; # name push_field \@csv, \@vcard, '\w+@\w+\.[a-zA-z]{2,4}'; # email push_field \@csv, \@vcard, "^TEL;.*"; # phone push_field \@csv, \@vcard, "^NOTE:.*"; # notes # write csv entries on CSV handle: foreach (@csv) { print CSV; print CSV ','; } print CSV "\n"; } until eof VCF; close VCF; close CSV; END;

Filed under: scripting, perl |