The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

SYNOPSIS

        use Data::v;

        my $vdata = Data::v->new->decode([ '..', 't', 'vcf', 'aldo.vcf' ]);
        my $vcard = $vdata->get_value('vcard');
        
        print 'version:   ', $vcard->get_value('version'), "\n";
        print 'full name: ', $vcard->get_value('fn'), "\n";
        print 'email:     ', $vcard->get_value('email'), "\n";
        
        my @cell_phones = $vcard->get_fields('tel');
        
        use List::MoreUtils 'any';
        my @cell_phones =
                map { $_->value->as_string }
                $vcard->get_fields('tel', 'type' => 'cell')
        ;
        print 'cell:      ', join(', ', @cell_phones), "\n";
        
        print "\n";
        
        $vcard->set_value('email' => 'dada@internet');
        $vcard->rm_fields('rev', 'photo', 'adr', 'X-MS-OL-DEFAULT-POSTAL-ADDRESS', 'label');
        
        print $vdata->encode, "\n";

DESCRIPTION

SEE ALSO

http://tools.ietf.org/html/rfc2425 - A MIME Content-Type for Directory Information

http://tools.ietf.org/html/rfc2426 - vCard MIME Directory Profile

http://tools.ietf.org/html/rfc5545 - Internet Calendaring and Scheduling Core Object Specification (iCalendar)

AUTHOR

Jozef Kutej