Правильно ли я понимаю, что компоненты свойства key_ объекта item можно извлечь вот так?
Собственно, вопрос о том, применимо ли в данном случае регулярное выражение
Спасибо!
Code:
#!/usr/bin/perl
$k=<<EOF;
some.key["trata, ta", "lalala,,, la",17, mu g,y lyu]
EOF
for ($a=$k) {
s%[^\[]+\[\s*%%;
s%\]\s*$%%;
}
@l=$a=~m/(?:^|,)\s*(?:(?<q>['"])(.+?)\g{q}|([^'",]*?))\s*(?=(?:,|$))/g;
$c=0;
print join("\n",map { ++$c.': '.$_ } grep { $_ && $_ ne '"'} @l)."\n";
Code:
(?:^|,)\s*(?:(?<q>['"])(.+?)\g{q}|([^'",]*?))\s*(?=(?:,|$))