vcf file normalization by email

vcf file normalization by email

de > hacks > vcf-files

Dieses kleine perlscript ist dazu gedacht die einheitlich UID von VCARDS durch den von claws-mail verwendeten standardbezeichner zu ersetzen, durch mail=... Dadurch lassen sich doppelte Eintraege finden.

#!/usr/bin/perl

open(FILE, '2014-01-17.vcf');
my $content = join('', <FILE>);
close(FILE);

sub found()
{
        my $vcard = $1;
        if($vcard =~ /^EMAIL.*:(.+)rn/m)
        {
                my $mail = $1;
                $vcard =~ s/UID:.*/UID:mail=$mail\,ou=people\,dc=typesafe\,dc=de/g;
        }
        print qq[$vcardrnrn];

}
$content =~ s/(BEGIN:VCARD.*?END:VCARD)/found/gmes;
top