Я какое-то время разбирался с этим регулярным выражением, пытаясь создать что-то, что могло бы выбрать несколько упорядоченных значений свойств (DTSTART, DTEND, SUMMARY) из файла .ics. У меня есть другие варианты (например, чтение по одной строке за раз и сканирование), но я хотел создать одно регулярное выражение, которое может обрабатывать все это.
SAMPLE PERL
# There has got to be a better way...
my $x1 = '(?:^DTSTART[^\:]*:(?<dts>.*?)$)';
my $x2 = '(?:^DTEND[^\:]*:(?<dte>.*?)$)';
my $x3 = '(?:^SUMMARY[^\:]*:(?<dtn>.*?)$)';
my $fmt = "$x1.*$x2.*$x3|$x1.*$x3.*$x2|$x2.*$x1.*$x3|$x2.*$x3.*$x1|$x3.*$x1.*$x2|$x3.*$x2.*$x1";
if ($evts[1] =~ /$fmt/smo) {
printf "lines:\n==>\n%s\n==>\n%s\n==>\n%s\n", $+{dts}, $+{dte}, $+{dtn};
} else {
print "Failed.\n";
}
ОБРАЗЕЦ ДАННЫХ
НАЧАТЬ: VEVENT
UID: 0A5ECBC3-CAFB-4CCE-91E3-247DF6C6652A
TRANSP: OPAQUE
РЕЗЮМЕ: Gandalf_flinger1
DTEND: 20071127T170005
DTSTART, LANG = en_US: 20071127T103000
DTSTAMP: 20100325T003424Z
X-APPLE-EWS-BUSYSTATUS: BUSY
ПОСЛЕДОВАТЕЛЬНОСТЬ: 0
КОНЕЦ: VEVENT
ОБРАЗЕЦ ВЫХОДА
строка:
==>
20071127T103000
==>
20071127T170005
==>
Gandalf_flinger1