使用 Perl 模块 Data::ICal 将 iCal 事件标记为“全天”

Question

有一个巨大的 Perl 模块 Data::ICal 可以创建 iCal 文件，这些文件可以添加到 mac 上的日历应用程序中（它们也可以添加到许多其他程序中）。

我使用过Data::ICal，并编写了一个创建 iCal 文件的简单脚本。我已将它添加到日历应用程序中，它运行良好。

这里是列表：

#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';

use Data::ICal;
use Data::ICal::Entry::Event;
use Date::ICal;
use File::Slurp;

my $calendar = Data::ICal->new();

my $ical_date = Date::ICal->new(
    year => 2013,
    month => 9,
    day => 6,
);

my $event = Data::ICal::Entry::Event->new();
$event->add_properties(
    summary => "my party",
    description => "I'll cry if I want to",
    dtstart => $ical_date->ical(),
);

$calendar->add_entry($event);

write_file('sample.ics', $calendar->as_string);

但现在我想将此事件标记为持续一整天。我已经 grepped throw 模块源文档和代码，但我还没有找到方法。

如何将此活动标记为持续一整天？

Answer 1

根据innerjoin 上的description，您所要做的就是将dtstart 和dtend 设置为YYYYMMDD（无小时或以下），其中开始是（您的聚会的）一天并结束下一个天。

至少对于雷鸟/太阳鸟来说，这可以完美地工作：

#!/usr/bin/perl

use strict;

use Data::ICal;
use Data::ICal::Entry::Event;
use File::Slurp;

my $calendar = Data::ICal->new();

my $event = Data::ICal::Entry::Event->new();
$event->add_properties(
    summary     => "my party",
    description => "I'll cry if I want to",
    dtstart     => "20130906",
    dtend       => "20130907",
);

$calendar->add_entry($event);

write_file('sample.ics', $calendar->as_string);