使用Perl模块数据将iCal事件标记为“一整天”：：ICal

Question

有一个巨大的Perl模块资料来源：使创建iCal文件成为可能，这些文件可以添加到mac上的Calendar应用程序中(它们也可以添加到许多其他程序中)。

我使用了资料来源：，并编写了一个创建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);

但现在我要纪念这件事持续一整天。我已经抛出了模块源代码文档和代码，但是我还没有找到方法。

我怎样才能把这个事件持续一整天呢？

Answer 1

根据innerjoin上的这个描述，您所要做的就是将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);