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