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

Question

I have several non-overlapping ical files that I want to merge into one ical file.
What is the preferred way to do this?

Answer 1

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 .

Answer 2

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; 

  Or

   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.

Answer 3

I ended up concatenate every file without their header/footer and adding header/footer manually.
(I can't accept my own answer whithin 2 days)