RegEx для захвата групп Vcard в Perl - PullRequest
Новая
       28

RegEx для захвата групп Vcard в Perl

1 голос
/ 15 мая 2019

В этом семестре я изучал синтаксис и семантику в университете, и регулярное выражение часто играет в этом роль.В качестве способа выучить я нашел различные сценарии, в которых можно применять регулярные выражения.Считая VC-карты одним из них, я не смог указать что-то для группировки всего между BEGIN:VCARD и END:VCARD

. Обратите внимание, что в файлах .vcf используется разделение строк

Мой лучший шаблон для этого выглядит так: (хотя я пробовал много вариантов

BEGIN:VCARD\n([^(END:VCARD)\n]*END:VCARD

, поэтому идея такова: «С начала vcard прочитайте все, что не END: VCARD,и который заканчивается переводом строки, пока не встретится конец vcard "

Я использую вариант perl, но работаю с языком программирования vala.

Я понимаю, что проблема в моем шаблоне, нопосле долгого чтения и проб и ошибок я все еще не совсем уверен, почему тестер показывает, что он не работает.

Тестовые данные: 

BEGIN:VCARD
VERSION:3.0
N:Doe;John;;;
FN:John Doe
ORG:Example.com Inc.;
TITLE:Imaginary test person
EMAIL;type=INTERNET;type=WORK;type=pref:johnDoe@example.org
TEL;type=WORK;type=pref:+1 617 555 1212
TEL;type=WORK:+1 (617) 555-1234
TEL;type=CELL:+1 781 555 1212
TEL;type=HOME:+1 202 555 1212
NOTE:John Doe has a long and varied history\, being documented on more police files that anyone else. Reports of his death are alas numerous.
CATEGORIES:Work,Test group
X-ABUID:5AD380FD-B2DE-4261-BA99-DE1D1DB52FBE\:ABPerson
END:VCARD
BEGIN:VCARD
VERSION:3.0
N:Doe;Jane;;;
FN:Jane Doe
ORG:Example.com Inc.;
TITLE:Another Imaginary test person
EMAIL;type=INTERNET;type=WORK;type=pref:johnDoe@example.org
TEL;type=WORK;type=pref:+1 617 555 1213
TEL;type=WORK:+1 (617) 555-1233
TEL;type=CELL:+1 781 555 1213
TEL;type=HOME:+1 202 555 1213
NOTE:Jane Doe has a long and varied history\, being documented on more police files that anyone else. Reports of her death are alas numerous.
CATEGORIES:Work,Test group
X-ABUID:5AD380FD-B2DE-4261-BA99-DE1D1DB52FBE\:ABPerson
END:VCARD

В моем самом успешномпроверить это отмечает все от первого BEGIN:VCARD до строки непосредственно перед END:VCARD

1 Ответ

3 голосов
/ 15 мая 2019

Это выражение может помочь вам сделать это: 

(BEGIN:VCARD([\s\S]*?)END:VCARD)

Тест Perl: 

use strict;

my $str = 'BEGIN:VCARD
VERSION:3.0
N:Doe;John;;;
FN:John Doe
ORG:Example.com Inc.;
TITLE:Imaginary test person
EMAIL;type=INTERNET;type=WORK;type=pref:johnDoe@example.org
TEL;type=WORK;type=pref:+1 617 555 1212
TEL;type=WORK:+1 (617) 555-1234
TEL;type=CELL:+1 781 555 1212
TEL;type=HOME:+1 202 555 1212
NOTE:John Doe has a long and varied history\\, being documented on more police files that anyone else. Reports of his death are alas numerous.
CATEGORIES:Work,Test group
X-ABUID:5AD380FD-B2DE-4261-BA99-DE1D1DB52FBE\\:ABPerson
END:VCARD
BEGIN:VCARD
VERSION:3.0
N:Doe;Jane;;;
FN:Jane Doe
ORG:Example.com Inc.;
TITLE:Another Imaginary test person
EMAIL;type=INTERNET;type=WORK;type=pref:johnDoe@example.org
TEL;type=WORK;type=pref:+1 617 555 1213
TEL;type=WORK:+1 (617) 555-1233
TEL;type=CELL:+1 781 555 1213
TEL;type=HOME:+1 202 555 1213
NOTE:Jane Doe has a long and varied history\\, being documented on more police files that anyone else. Reports of her death are alas numerous.
CATEGORIES:Work,Test group
X-ABUID:5AD380FD-B2DE-4261-BA99-DE1D1DB52FBE\\:ABPerson
END:VCARD';
my $regex = qr/(BEGIN:VCARD([\s\S]*?)END:VCARD)/mp;

if ( $str =~ /$regex/g ) {
  print "Whole match is ${^MATCH} and its start/end positions can be obtained via \$-[0] and \$+[0]\n";
  # print "Capture Group 1 is $1 and its start/end positions can be obtained via \$-[1] and \$+[1]\n";
  # print "Capture Group 2 is $2 ... and so on\n";
}

# ${^POSTMATCH} and ${^PREMATCH} are also available with the use of '/p'
# Named capture groups can be called via $+{name}

RegEx

Если это не ваше желаемое выражение, выВы можете изменять / изменять свои выражения в regex101.com .

Схема RegEx

Вы также можете визуализировать свои выражения в jex.im :

enter image description here

...