perl - 使用 perl 模块 "vCard::AddressBook"将节点类别添加到 vcard

Question

我找不到添加像 CATEGORIES 这样的节点的可能性或 ORG使用 perl 模块 时到 vcard 对象电子名片::通讯录 (https://metacpan.org/pod/vCard::AddressBook)。
输出应如下所示:

BEGIN:VCARD
VERSION:4.0
...
N:Doe;John;;;
...
ORG:Organization_01;
CATEGORIES:Cat_01
...
END:VCARD

当我使用以下代码时:

use vCard::AddressBook;
my $address_book = vCard::AddressBook->new();
my $vcard = $address_book->add_vcard;
$vcard->given_names(['John']);
$vcard->family_names(['Doe']);
$vcard->categories(['Cat_01']);  ## DOES NOT WORK
my $file = $address_book->as_file('file.vcf');

我收到以下错误:

Can't locate object method "categories" via package "vCard" at tmp2.pl line 6.

获取其他节点(如 )的最佳方法是什么？类别 在我的 vcard 文件中？
顺便说一句:RFC6350 定义它... https://www.rfc-editor.org/rfc/rfc6350#section-6.7.1

Answer 1

有https://metacpan.org/pod/Text::vCard::Precisely这似乎更符合 RFC6350:

use Text::vCard::Precisely;
my $vcard = Text::vCard::Precisely->new( version => '4.0' );
$vcard->n(['John','Doe']);
$vcard->categories([qw/Cat_01 Cat_02 Cat_03/]);
print $vcard->as_string();

打印:

BEGIN:VCARD
VERSION:4.0
N:John;Doe;;;
CATEGORIES:Cat_01,Cat_02,Cat_03
END:VCARD