Есть файл с функциями и процедурами VBA. Надо вытащить первые их строки при помощи регулярного выражения.
my $s = 'Public Function SheetReMake(ByVal sheetName As String) As Worksheet \' создает новую таблицу, если такая есть, то ее удаляет';
my @arr = ($s =~ m/^((public|private)*\s*(function|sub)+\s+(\w+)\(.*?\)(.*?))+$/igm);
print $#arr."\n";
for my $i(0..$#arr) {
print $arr[$i]."\n";
}
Вместо этого в массив @arr
попадают отдельно "Public", "Private", "Sub", "Function" и т.д., а также целые искомые строки. Что я делаю неправильно?
?:
ru.wikipedia.org/wiki/…?:
все что делает - это делает данные скобки не захватываемыми