разбор аргументов

[ocehb]

разобрать строку, типа 'arg1, "arg2, arg3", arg4' на 'arg1', '"arg2, arg3"' и 'arg4'.
аргументы могут быть любыми.

  DB<1> $a = q|arg1, "arg2, arg3", arg4|
  DB<2> p join "\n",($a =~ m#("[^"]+"|[^,]+),?\s*#g)
arg1
"arg2, arg3"
arg4
  DB<3>

если добавить в качестве ограничителей еще и "'", то:

  DB<3> $a = q|arg1, "arg2, arg3", arg4,'arg6,arg7'|

  DB<4> p join "\n",($a =~ m#("[^"]+"|'[^']+'|[^,]+),?\s*#g)
arg1
"arg2, arg3"
arg4
'arg6,arg7'
  DB<5>

про экранирование буду думать завтра.

Comments

[jerom.livejournal.com]

Это уже было в ru_regexp

[ocehb]

похожее, var="arg".