当前位置：文江博客话题详情

如何在 Perl 中将多个日历（iCal 格式）合并为一个？

发布于 2024-12-05 18:15:16 字数 63 浏览 1 评论 0原文

我有几个不重叠的 ical 文件，我想将它们合并到一个 ical 文件中。
执行此操作的首选方法是什么？

需要登录才能够评论，你可以免费注册一个本站的账号。

阅读 @knarf 的正确（自我）答案并格式化 iCalendar 文件后在 support.google.com，我成功地使用了这个：

mergeIcal() {
    sed -e '$d' $1
    sed -e '1,/VEVENT/{/VEVENT/p;d}' $2
}

这需要整个第一个参数文件，但不是最后一行（页脚），并连接第二个参数文件而不带标题。

当最常见的日历代理加载时，事件重复将自动删除。

After reading correct (self)-answer from @knarf and Format iCalendar files at support.google.com, I succesfully used this:

mergeIcal() {
    sed -e '$d' $1
    sed -e '1,/VEVENT/{/VEVENT/p;d}' $2
}

This take whole first argument file but not last line (footer) and concatenate second argument file without header.

Event duplication will be automatically dropped when loaded by most common Calendar Agent.

鱼忆七猫命九 2024-12-12 18:15:16

我最终连接了每个没有页眉/页脚的文件，并手动添加了页眉/页脚。
（我不能接受我自己两天内的答案）

猫瑾少女 2024-12-12 18:15:16

有几个选项（恕我直言，对您的任务从最有用到最有用排序）：

如果您更喜欢使用“标准”DateTime 模块集进行日期时间操作，您可以使用 DateTime::Format::ICal 。但是，该模块解析 iCal 格式的数据，但不解析文件。

为了解析/组合多个文件，您可以使用 iCal::解析器。从概要（参见从底部开始的第 3 行）：

使用 iCal::Parser;
我的 $parser=iCal::Parser->new();
我的 $hash=$parser->parse($file);
$parser->parse($another_file);
我的 $combined=$parser->calendar;

或者

使用 iCal::Parser;
我的 $combined=iCal::Parser->new->parse(@files); #### 宾果游戏!!!!!

但是，该模块不会将生成的合并数据打印回文件中，至少据我所知。

Data::ICal 模块集有解析和打印，主模块 Data::ICal 能够生成文件。
我无法找到如何正式合并不同日历的方法，但通过循环第二个日历对象的条目和属性应该相当简单（一个是 arrayref，一个是哈希）并使用要合并的第一个日历对象的 add_entry() 和 add_property()。
我认为您还应该能够将 ical::Parser 合并数据转换为 Data::ICal，因为前者会生成 Text:: 列表vFile::asData 对象（日期由 DateTime 对象替换）；后者有 parse_object() 方法来解析 Text::vFile::asData 对象。

There are a couple of options (ordered IMHO least useful to most useful for your task):

If you prefer to use the "standard" DateTime set of modules for datetime manipulation, you can parse in and print calendars using DateTime::Format::ICal . However, that module parses iCal formatted data but not files.

For purpose of parsing/combining multiple files, you can use iCal::Parser . From SYNOPSIS (see line #3 from the botom):

use iCal::Parser;
my $parser=iCal::Parser->new();
my $hash=$parser->parse($file);
$parser->parse($another_file);
my $combined=$parser->calendar;

use iCal::Parser;
my $combined=iCal::Parser->new->parse(@files); #### BINGO!!!!!

However, this module doesn't print the resulting merged data back into a file, at least that I know of.

Data::ICal set of modules has both parsing and printing, with main module Data::ICal capable of generating a file.
I wasn't able to find out how to merge the different calendars officially, but it should be fairly trivially to do by looping over second calendar object's entries and properties (one's an arrayref one is a hash) and using add_entry() and add_property() of the first calendar object to merge.
I think you should also be able to convert ical::Parser merged data into Data::ICal, since the former produces lists of Text::vFile::asData objects (with dates replaced by DateTime objects); and the latter has parse_object() method to parse Text::vFile::asData objects.